Even better bounding box

diff --git a/advent-of-code.cabal b/advent-of-code.cabal
index f4fb19a2741a3c2e5eb5a818630854f525f7152f..ee5a633456ccce4ad0d02e085227096f1d9b3af3 100644 (file)
--- a/advent-of-code.cabal
+++ b/advent-of-code.cabal
@@ -66,4 +66,5 @@ executable advent06
   build-depends:       base >= 4.7 && < 5
                      , text
                      , megaparsec
-                     , containers
\ No newline at end of file
+                     , containers
+          
\ No newline at end of file

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