Brilliant numbers: Difference between revisions
Content added Content deleted
Line 454: | Line 454: | ||
--------------------------- TEST ------------------------- |
--------------------------- TEST ------------------------- |
||
main :: IO () |
|||
main = do |
main = do |
||
let brilliants = filter isBrilliant [1 ..] |
let brilliants = filter isBrilliant [1 ..] |
||
Line 465: | Line 466: | ||
putStrLn "(index, brilliant)" |
putStrLn "(index, brilliant)" |
||
mapM_ print $ |
mapM_ print $ |
||
take 6 $ |
|||
fmap (fst . head) $ |
|||
splitWhen |
splitWhen |
||
(uncurry (<) . join bimap (length . show . snd)) |
(uncurry (<) . join bimap (length . show . snd)) |
||
$ zip indexedBrilliants (tail indexedBrilliants) |
$ zip indexedBrilliants (tail indexedBrilliants) |
||
----------------------- DISPLAY ------------------------ |
----------------------- DISPLAY ------------------------ |