Eban numbers: Difference between revisions

Content added Content deleted

Inline

@@ Line 668: / Line 668: @@
   (m, r2) = r1 `quotRem` (10 ^ 6)
   (t, r3) = r2 `quotRem` (10 ^ 3)
-  z       = [b] <> map (\x -> if 30 <= x && 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 = do