Eban numbers: Difference between revisions
Content added Content deleted
Line 668: | Line 668: | ||
(m, r2) = r1 `quotRem` (10 ^ 6) |
(m, r2) = r1 `quotRem` (10 ^ 6) |
||
(t, r3) = r2 `quotRem` (10 ^ 3) |
(t, r3) = r2 `quotRem` (10 ^ 3) |
||
z = |
z = b : map (\x -> if x >= 30 && x <= 66 then x `mod` 10 else x) [m, t, r3] |
||
main = do |
main = do |