Day 21

day21/Part1.hs

@@ -0,0 +1,9 @@
+module Part1 where
+
+import Commons
+import Data.Array (Ix(inRange), bounds, (//), indices, array, assocs)
+
+
+setStart :: Garden -> Garden
+setStart garden = let ((yMin, xMin), (yMax, xMax)) = bounds garden
+                  in garden // [((1 + div (yMax - yMin) 2, 1 + div (xMax - xMin) 2), Plot {reachable = True})]