10 lines
314 B
Haskell
10 lines
314 B
Haskell
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})]
|