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