Brilliant numbers: Difference between revisions

Content added Content deleted
Line 458: Line 458:
let brilliants = filter isBrilliant [1 ..]
let brilliants = filter isBrilliant [1 ..]
indexedBrilliants = zip [1 ..] brilliants
indexedBrilliants = zip [1 ..] brilliants

putStrLn $
putStrLn $
table " " $
table " " $
chunksOf 10 $
chunksOf 10 $ show <$> take 100 brilliants
show
<$> take 100 brilliants


putStrLn "(index, brilliant)"
putStrLn "(index, brilliant)"
Line 472: Line 471:
$ zip indexedBrilliants (tail indexedBrilliants)
$ zip indexedBrilliants (tail indexedBrilliants)


------------------------- DISPLAY ------------------------

----------------------- DISPLAY ------------------------


table :: String -> [[String]] -> String
table :: String -> [[String]] -> String