From: Neil Smith Date: Thu, 6 Dec 2018 09:33:56 +0000 (+0000) Subject: tidying X-Git-Url: https://git.njae.me.uk/?p=advent-of-code-18.git;a=commitdiff_plain;h=d9bed1316d919ba8bdb27317c84c1ebf2644107c tidying --- diff --git a/src/advent06/advent06.hs b/src/advent06/advent06.hs index 2ff18f5..74e11f7 100644 --- a/src/advent06/advent06.hs +++ b/src/advent06/advent06.hs @@ -15,7 +15,7 @@ import qualified Control.Applicative as CA import qualified Data.Map.Strict as M type Coord = (Integer, Integer) -- x, y -type Bounds = (Integer, Integer, Integer, Integer) +type Bounds = (Integer, Integer, Integer, Integer) -- minX, maxX, minY, maxY type Region = M.Map Coord Int main :: IO () @@ -27,8 +27,6 @@ main = do print boundingBox print $ part1 coords boundingBox print $ part2 coords boundingBox - -- print $ part1 activity - -- print $ part2 activity part1 coords bounds = largestRegion $ regionSizes $ finite edgeLabels regions