From f6fbd7fbb9200497415c9f61b226521b4b4c2c44 Mon Sep 17 00:00:00 2001 From: Neil Smith Date: Thu, 6 Dec 2018 10:26:16 +0000 Subject: [PATCH] Even better bounding box --- advent-of-code.cabal | 3 ++- src/advent06/advent06.hs | 8 ++++---- 2 files changed, 6 insertions(+), 5 deletions(-) diff --git a/advent-of-code.cabal b/advent-of-code.cabal index f4fb19a..ee5a633 100644 --- 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 5913ccf..46252ff 100644 --- 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 -- 2.34.1