X-Git-Url: https://git.njae.me.uk/?p=advent-of-code-18.git;a=blobdiff_plain;f=src%2Fadvent06%2Fadvent06.hs;h=74e11f7767862bf44c45dda57d1f708501a5a4e8;hp=2ff18f51cc2cf9aaa8f0869838da685558f0256a;hb=d9bed1316d919ba8bdb27317c84c1ebf2644107c;hpb=864aa7e1075c6b7c75037dc4b11afe4a30d73618

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