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