Changes between Initial Version and Version 1 of Ticket #4502


Ignore:
Timestamp:
Nov 16, 2010 10:35:31 PM (3 years ago)
Author:
igloo
Comment:

Legend:

Unmodified
Added
Removed
Modified
  • Ticket #4502 – Description

    initial v1  
    1717                                        ([], _) -> [] 
    1818                                        (js, xs''') -> 
    19                                             let j = fromInteger (read js)  
    20                                                 d = 10 ^ genericLength js 
    21                                             in [(i + (j / d), xs''')] 
     19                                            let j = fromInteger (read js) 
     20                                                l = genericLength js :: Integer 
     21                                            in [(i + (j / (10 ^ l)), xs''')] 
    2222                                    _ -> [(i, xs')] 
    2323}}}