Anonymous user
Eban numbers: Difference between revisions
m
→{{header|Haskell}}
Line 670:
putStrLn $ "eban numbers up to and including 1000: " ++ r [1..1000]
putStrLn $ "eban numbers between 1000 and 4000: " ++ r [1000..4000]
putStrLn $ "eban numbers up and including 10,000: " ++ t [1..10_000]
putStrLn $ "eban numbers up and including 100,000: " ++ t [1..100_000]
putStrLn $ "eban numbers up and including 1,000,000: " ++ t [1..1_000_000]
putStrLn $ "eban numbers up and including 10,000,000: " ++ t [1..10_000_000]
where
r = (\(c, xs) -> show c <> "\n" <> show xs <> "\n") . (\xs -> (length xs, xs)) . filter isEban
Line 686 ⟶ 684:
eban numbers between 1000 and 4000: 21
[2000,2002,2004,2006,2030,2032,2034,2036,2040,2042,2044,2046,2050,2052,2054,2056,2060,2062,2064,2066,4000]
eban numbers up and including 10,000: 79
| |||