From fff899be33ce0aec2de0eea31142f0f16b7974d4 Mon Sep 17 00:00:00 2001
From: Neil Smith <NeilNjae@users.noreply.github.com>
Date: Fri, 26 Jul 2024 15:06:29 +0100
Subject: [PATCH] Tweaks for day 21.
---
advent-of-code23.cabal | 2 +-
advent21/Main.hs | 1 +
2 files changed, 2 insertions(+), 1 deletion(-)
diff --git a/advent-of-code23.cabal b/advent-of-code23.cabal
index fd53102..5548512 100644
--- 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 ee247dd..5896831 100644
--- 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
--
2.43.0