Brilliant numbers: Difference between revisions

Content added Content deleted

Inline

@@ Line 456: / Line 456: @@
 main :: IO ()
 main = do
+  let indexedBrilliants =
-  let brilliants = filter isBrilliant [1 ..]
-      indexedBrilliants = zip [1 ..] brilliants
+        zip
+          [1 ..]
+          (filter isBrilliant [1 ..])
   putStrLn $
     table "  " $
-      chunksOf 10 $ show <$> take 100 brilliants
+      chunksOf 10 $
+        show . snd
+          <$> take 100 indexedBrilliants
   putStrLn "(index, brilliant)"