Tweaks for day 21.

diff --git a/advent-of-code23.cabal b/advent-of-code23.cabal
index fd531027b49a990fe65e2a594613241fce120ce3..55485124ea4e6cb22306cbb33681771363ca7bda 100644 (file)
--- a/advent-of-code23.cabal
+++ b/advent-of-code23.cabal
@@ -87,7 +87,7 @@ executable advent-of-code23
 
     -- LANGUAGE extensions used by modules in this package.
     -- other-extensions:
-    build-depends:    base ^>=4.18
+    build-depends:    base >=4.18
     hs-source-dirs:   app, src
     default-language: Haskell2010
 

diff --git a/advent21/Main.hs b/advent21/Main.hs
index ee247dd832e8a962eb2dbf8f6387e04cf339e4d8..58968314c4bec07a28119e49a1fc1f0d1ce25313 100644 (file)
--- a/advent21/Main.hs
+++ b/advent21/Main.hs
@@ -79,6 +79,7 @@ countInRange bounds delta cells =
 shiftBounds :: (Position, Position) -> Position -> (Position, Position)
 shiftBounds (a, b) d = (a ^+^ d, b ^+^ d)
 
+take2Steps :: Grid -> (Position, Position) -> (Grid, Grid) -> (Grid, Grid)
 take2Steps rocks bounds (boundary, old) = (boundary2 S.\\ old, new)
   where boundary1 = takeSteps rocks bounds boundary
         boundary2 = takeSteps rocks bounds boundary1