Eban numbers: Difference between revisions

m
Line 668:
(m, r2) = r1 `quotRem` (10 ^ 6)
(t, r3) = r2 `quotRem` (10 ^ 3)
z = [b] <> map (\x -> if 30x <>= x30 && x <= 66 then x `mod` 10 else x) [m, t, r3]
 
main = do
Anonymous user