Day 3

Day2/puzzle1.hs

@@ -10,5 +10,4 @@ isSafe xs = (isAscending xs || isDescending xs) && maximum distances <= 3 && min
 main = do
     contents <- lines <$> readFile "day2.txt"
     let reports = map read . words <$> contents
-        safeCount = length $ filter isSafe reports
-    print safeCount
+    print . length $ filter isSafe reports

Day2/puzzle2.hs

@@ -15,5 +15,4 @@ removeLevel xs = zipWith (++) ys zs
 main = do
     contents <- lines <$> readFile "day2.txt"
     let reports = map read . words <$> contents
-        safeCount = length . filter (any isSafe) $ map removeLevel reports
-    print safeCount
+    print . length . filter (any isSafe) $ map removeLevel reports