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})]