Even better bounding box

[advent-of-code-18.git] / src / advent06 / advent06.hs

diff --git a/src/advent06/advent06.hs b/src/advent06/advent06.hs
index 5913ccf53fb8fba7d157402620c3811e085b6125..46252ff2e092b1fcfc0da6256d12cf430d7adcbc 100644 (file)
--- a/src/advent06/advent06.hs
+++ b/src/advent06/advent06.hs
@@ -70,10 +70,10 @@ largestRegion = maximum . map snd
 
 
 findBounds :: [Coord] -> (Integer, Integer, Integer, Integer)
-findBounds coords = ( minX - (maxY - minY) `div` 2 -- small x edge
-                    , maxX + (maxY - minY) `div` 2 -- large x edge
-                    , minY - (maxX - minX) `div` 2-- small x edge
-                    , maxY + (maxX - minX) `div` 2 -- large y edge
+findBounds coords = ( minX -- small x edge
+                    , maxX -- large x edge
+                    , minY -- small x edge
+                    , maxY -- large y edge
                     )
     where maxX = maximum $ map fst coords
           minX = minimum $ map fst coords