Day 3

Day1/puzzle1.hs

@@ -7,5 +7,4 @@ listDistance xs ys = sum $ map abs $ zipWith (-) (sort xs) (sort ys)
 main = do
     contents <- lines <$> readFile "day1.txt"
     let [x, y] = transpose $ map read . words <$> contents
-        distance = listDistance x y
-    print distance
+    print $ listDistance x y

Day1/puzzle2.hs

@@ -8,5 +8,4 @@ similarityScore xs ys = let elemsY = [ (head y, length y) | y <- (group . sort)
 main = do
     contents <- lines <$> readFile "day1.txt"
     let [x, y] = transpose $ map read . words <$> contents
-        score = similarityScore x y
-    print score
+    print $ similarityScore x y