Linked to blog post

diff --git a/advent01/Main.hs b/advent01/Main.hs
index 8ba212e73e4031f19f28a1a70875815130e27cc5..13dc8aa4a5cc28d98f13a591fc48cd1dcfb94117 100644 (file)
--- a/advent01/Main.hs
+++ b/advent01/Main.hs
@@ -1,4 +1,4 @@
--- Writeup at https://work.njae.me.uk/2023/12/01/advent-of-code-2023-day-01/
+-- Writeup at https://work.njae.me.uk/2024/12/01/advent-of-code-2024-day-1/
 
 import AoC
 import Data.List
@@ -14,13 +14,13 @@ main =
 
 part1, part2 :: [(Int, Int)] -> Int
 part1 pairs = sum $ zipWith absDiff (sort lefts) (sort rights)
-  where (lefts, rights) = unzip pairs
+where (lefts, rights) = unzip pairs
         absDiff a b = abs (a - b)
 
 part2 pairs = sum $ fmap similarity lefts
     where (lefts, rights) = unzip pairs
-          counts = MS.fromList rights
-          similarity l = l * (MS.occur l counts)
+        counts = MS.fromList rights
+        similarity l = l * (MS.occur l counts)
 
 readPair :: String -> (Int, Int)
 readPair s = (read a, read b)