RosettaCodeData/Task/Generator-Exponential/Haskell/generator-exponential.hs

import Data.List.Ordered

powers :: Int -> [Int]
powers m = map (^ m) [0..]

squares :: [Int]
squares = powers 2

cubes :: [Int]
cubes = powers 3

foo :: [Int]
foo = filter (not . has cubes) squares

main :: IO ()
main = print $ take 10 $ drop 20 foo
Sync 2013-10-27 22:24:23 +00:00			`import Data.List.Ordered`
A-M baby 2013-04-10 21:29:02 -07:00
September Morn Update 2019-09-12 10:33:56 -07:00			`powers :: Int -> [Int]`
Sync 2013-10-27 22:24:23 +00:00			`powers m = map (^ m) [0..]`
A-M baby 2013-04-10 21:29:02 -07:00
September Morn Update 2019-09-12 10:33:56 -07:00			`squares :: [Int]`
A-M baby 2013-04-10 21:29:02 -07:00			`squares = powers 2`
September Morn Update 2019-09-12 10:33:56 -07:00
			`cubes :: [Int]`
A-M baby 2013-04-10 21:29:02 -07:00			`cubes = powers 3`
September Morn Update 2019-09-12 10:33:56 -07:00
			`foo :: [Int]`
Sync 2013-10-27 22:24:23 +00:00			`foo = filter (not . has cubes) squares`
A-M baby 2013-04-10 21:29:02 -07:00
			`main :: IO ()`
September Morn Update 2019-09-12 10:33:56 -07:00			`main = print $ take 10 $ drop 20 foo`