Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/Prelude/NumericEnumFrom.hs
module Prelude where numericEnumFrom :: (Fractional a) => a -> [a] numericEnumFrom n = iterate (+1) n numericEnumFromTo :: (Fractional a, Ord a) => a -> a -> [a] numericEnumFromTo n m = takeWhile (<= m+1/2) (numericEnumFrom n)
