Added link to blog post

diff --git a/advent22/Main.hs b/advent22/Main.hs
index 39657a13bbadc1a11af5804b83fdadccbdd59690..7fe439d95b1982d27fb1f3b5e84d4c503f2f6caa 100644 (file)
--- a/advent22/Main.hs
+++ b/advent22/Main.hs
@@ -1,8 +1,8 @@
--- Writeup at https://work.njae.me.uk/2024/12/24/advent-of-code-2024-day-21/
+-- Writeup at https://work.njae.me.uk/2024/12/24/advent-of-code-2024-day-22/
 import AoC
 
 import Data.Bits
-import Data.List
+-- import Data.List
 import Data.List.Split
 import qualified Data.IntMap.Strict as M
 
@@ -18,7 +18,7 @@ main =
       print $ part1 codes
       print $ part2 codes
 
-part1 :: [Int] -> Int
+part1, part2 :: [Int] -> Int
 part1 codes = sum $ fmap (followingSecret 2000) codes
 
 part2 codes = maximum $ M.elems mergedPriceValues
@@ -55,12 +55,3 @@ windowsAndPrices :: [Int] -> Prices
 windowsAndPrices ps = foldl' (\m (w, p) -> M.insertWith (flip const) w p m) M.empty wPs
   where cs = priceChanges ps
         wPs = zip (windows cs) (drop 4 ps)
-
-
-possibleWindows :: [[Int]]
-possibleWindows = [ [a, b, c, d]
-                  | a <- [-9..9]
-                  , b <- [-9..9]
-                  , c <- [-9..9]
-                  , d <- [-9..9]
-                  ]

diff --git a/advent22/MainBruteForce.hs b/advent22/MainBruteForce.hs
index 53156da75294747d0481610e48189acd1eff447f..7e0390327ad38b312ac4eded584d5c7c3351dd39 100644 (file)
--- a/advent22/MainBruteForce.hs
+++ b/advent22/MainBruteForce.hs
@@ -1,4 +1,4 @@
--- Writeup at https://work.njae.me.uk/2024/12/24/advent-of-code-2024-day-21/
+-- Writeup at https://work.njae.me.uk/2024/12/24/advent-of-code-2024-day-22/
 import AoC
 
 import Data.Bits