Eban numbers: Difference between revisions
Content added Content deleted
Line 670: | Line 670: | ||
z = b : map (\x -> if x >= 30 && x <= 66 then x `mod` 10 else x) [m, t, r3] |
z = b : map (\x -> if x >= 30 && x <= 66 then x `mod` 10 else x) [m, t, r3] |
||
main :: IO () |
|||
main = do |
main = do |
||
putStrLn $ "eban numbers up to and including 1000: " ++ r [1..1000] |
putStrLn $ "eban numbers up to and including 1000: " ++ r [1..1000] |