[clean-list] Lists

[Susumu Katayama]

Here is a definition of working [ 1.0, 1.1 .. 2.0 ], stolen from Haskell98 Report.

module enumFromThenTo
import StdEnv

numericEnumFromThen n m =  iterate (\x -> x +(m-n)) n
numericEnumFromThenTo n n` m = takeWhile p (numericEnumFromThen n n`)
                             where
                               p | n` > n    = \x -> x <= m + (n`-n)/2.0
                                 | otherwise = \x -> x >= m + (n`-n)/2.0
Start = numericEnumFromThenTo 1.0 1.1 2.0
// Start = numericEnumFromThenTo 1.0 1.1 5.0