Brilliant numbers: Difference between revisions
→{{header|Haskell}}
Line 456:
main :: IO ()
main = do
let indexedBrilliants =
let brilliants = filter isBrilliant [1 ..]▼
[1 ..]
putStrLn $
table " " $
chunksOf 10 $
show . snd
<$> take 100 indexedBrilliants
putStrLn "(index, brilliant)"
| |||