Day 6, minor cleanups

src/AOC-06a.hs

-{-# LANGUAGE TypeApplications #-}
-  
 module Main where
 
-import Data.Array
+import Data.Array ( Array, array, (!), accumArray )
 
 type Population = Array Int Int
 
@@ -13,9 +11,9 @@ step a = array (0,8) [(x,f x) | x <- [0..8]] where
   f n = a ! (n+1)
 
 makeFish :: [Int] -> Array Int Int
-makeFish = accumArray (+) 0 (0,8) . map (\x -> (x,1))
+makeFish = accumArray (+) 0 (0,8) . map (flip (,) 1)
+
 main :: IO ()
 main = do
-  phases <- makeFish . read @[Int] . ("["++) . (++"]") <$> readFile "data/lantern-fish.txt"
+  phases <- makeFish . read . ("["++) . (++"]") <$> readFile "data/lantern-fish.txt"
   print . sum $ iterate step phases !! 80
-

src/AOC-06b.hs

-{-# LANGUAGE TypeApplications #-}
-  
 module Main where
 
-import Data.Array
+import Data.Array ( Array, array, (!), accumArray )
 
 type Population = Array Int Int
 
@@ -13,9 +11,9 @@ step a = array (0,8) [(x,f x) | x <- [0..8]] where
   f n = a ! (n+1)
 
 makeFish :: [Int] -> Array Int Int
-makeFish = accumArray (+) 0 (0,8) . map (\x -> (x,1))
+makeFish = accumArray (+) 0 (0,8) . map (flip (,) 1)
+
 main :: IO ()
 main = do
-  phases <- makeFish . read @[Int] . ("["++) . (++"]") <$> readFile "data/lantern-fish.txt"
+  phases <- makeFish . read . ("["++) . (++"]") <$> readFile "data/lantern-fish.txt"
   print . sum $ iterate step phases !! 256
-