projects
/
advent-of-code-19.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
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]]
gridList = [((Ongrid r c), sgf (Ongrid r c)) | c <- [1..gridSize], r <- [1..gridSize]]