Brilliant numbers: Difference between revisions
m
→{{header|Haskell}}
Line 454:
--------------------------- TEST -------------------------
main :: IO ()
main = do
let brilliants = filter isBrilliant [1 ..]
Line 465 ⟶ 466:
putStrLn "(index, brilliant)"
mapM_ print $
splitWhen
(uncurry (<) . join bimap (length . show . snd))
$ zip indexedBrilliants (tail indexedBrilliants)
----------------------- DISPLAY ------------------------
|