From 1aa6ad0d6d14d08b44ef4b7f23b5ee3d5d976bd2 Mon Sep 17 00:00:00 2001 From: Nat Lasseter Date: Tue, 10 Dec 2024 19:29:47 +0000 Subject: [Day 10] Part 2: Oh I already did that. Great, I guess. :) --- day10/day10.hs | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'day10/day10.hs') diff --git a/day10/day10.hs b/day10/day10.hs index 5c970e5..8b063dd 100644 --- a/day10/day10.hs +++ b/day10/day10.hs @@ -69,12 +69,19 @@ score th = where untrail (Point c _ _) = c +rating :: [Trail] -> Int +rating = length + part1 :: Map -> Int part1 mp = sum $ map (score . (trails mp)) $ trailheads mp +part2 :: Map -> Int +part2 mp = + sum $ map (rating . (trails mp)) $ trailheads mp + main = do file <- readFile "day10.input" let mp = consume file putStrLn ("Part 1: " ++ (show $ part1 mp)) - --putStrLn ("Part 2: " ++ (show $ part2 mp)) + putStrLn ("Part 2: " ++ (show $ part2 mp)) -- cgit v1.2.1