Day 23

day23/Main.hs

@@ -0,0 +1,13 @@
+module Main where
+
+import Commons
+import qualified Part1
+import qualified Part2
+
+
+main = do trailsMap <- parse
+          let part1Res = Part1.getAllTrails trailsMap
+          print $ maximum $ map length part1Res
+          let compactPaths = Part2.getCompactPaths trailsMap part1Res
+          let part2Res = Part2.getAllTrails trailsMap compactPaths
+          print $ maximum $ map (foldl (\ s t -> s + snd t) 0) part2Res