Changes between Initial Version and Version 1 of Ticket #4502


Ignore:
Timestamp:
Nov 16, 2010 10:35:31 PM (5 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}}}