X-Git-Url: https://git.njae.me.uk/?a=blobdiff_plain;f=advent24%2FMain.hs;h=ae03fac557b1f58e00cf98ae73af067cd871aa34;hb=afdee5e8491a7ec802ad4c0897e2550cc405ac80;hp=2b85e46eebd9172b6f7d9d94c4b9e265d86e8a4b;hpb=8f8a643512f241b116b6da3cc43d2a9cd7360a42;p=advent-of-code-21.git

diff --git a/advent24/Main.hs b/advent24/Main.hs
index 2b85e46..ae03fac 100644
--- a/advent24/Main.hs
+++ b/advent24/Main.hs
@@ -1,15 +1,15 @@
--- Writeup at https://work.njae.me.uk/2021/12/29/advent-of-code-2021-day-24/
+-- Writeup at https://work.njae.me.uk/2022/04/23/advent-of-code-2021-day-24/
 -- Based on ideas by Daniel Lin, 
 --   taken from https://github.com/ephemient/aoc2021/blob/main/hs/src/Day24.hs
 
-import Debug.Trace
+-- import Debug.Trace
 
 import Data.Text (Text)
 import qualified Data.Text.IO as TIO
 import Data.Attoparsec.Text -- hiding (take, takeWhile)
 import Control.Applicative
-import qualified Data.Map as M
-import Data.Map ((!))
+import qualified Data.Map.Strict as M
+import Data.Map.Strict ((!))
 import Data.List
 import Control.Monad
 import Data.Maybe