Finally done day 24

[advent-of-code-19.git] / advent24 / src / advent24map.hs

diff --git a/advent24/src/advent24map.hs b/advent24/src/advent24map.hs
index 596bdb224375ef36bf576ecafef0f26612a38563..69ed0f6d35f568914cb612b5db19e430def60341 100644 (file)
--- a/advent24/src/advent24map.hs
+++ b/advent24/src/advent24map.hs
@@ -98,7 +98,7 @@ mkGrid xs = store (`elem` xs) (Ongrid 1 1)
 unGrid :: StoredGrid -> Grid Bool
 -- unGrid (StoreT (Identity g) _) = g
 unGrid grid = Grid False $ M.fromList gridList
-    where (sgf, _sgl) = runStore grid
+    where (sgf, _sgl) = runStore grid -- return pair is function for extracting elements, and current focus
           gridList = [((Ongrid r c), sgf (Ongrid r c)) | c <- [1..gridSize], r <- [1..gridSize]]