projects
/
advent-of-code-18.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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 :: [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
)
where maxX = maximum $ map fst coords
minX = minimum $ map fst coords