X-Git-Url: https://git.njae.me.uk/?a=blobdiff_plain;f=advent20.hs;h=8935f8656dd8b2ed5b4b1e492e353e27ccba38a7;hb=3dfbda126957813743b3f7bf2a2b240e7e83979a;hp=aab974a15247afa21877c825d500096be36995d0;hpb=11ffef60b9cfbad37ecdabc2ec515179f52ca109;p=advent-of-code-16.git

diff --git a/advent20.hs b/advent20.hs
index aab974a..8935f86 100644
--- a/advent20.hs
+++ b/advent20.hs
@@ -19,7 +19,7 @@ main = do
     text <- readFile "advent20.txt" 
     let intervals = successfulParse $ parseIfile text
     part1 intervals
-    -- part2
+    part2 intervals
 
 part1 :: [Interval] -> IO ()
 part1 intervals = print $ (+1) $ high $ head $ foldl' (mergeAdjacent) [] $ foldl' (merge) [] intervals
@@ -28,8 +28,8 @@ part2 :: [Interval] -> IO ()
 part2 intervals = do
     let ints = foldl' (mergeAdjacent) [] $ foldl' (merge) [] intervals
     let gapCount = gaps ints
-    let lowGap = max [0, ((low $ head ints) -1)]
-    let highGap = 4294967295 - (min [4294967295, ((high $ last ints) + 1)])
+    let lowGap = low $ head ints
+    let highGap = 4294967295 - (high $ last ints)
     print (lowGap + gapCount + highGap)
 
 -- 4294967295