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