14 lines
422 B
Haskell
14 lines
422 B
Haskell
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
|