From 347d2f1fbce2d3927a32b3af818ab67943628568 Mon Sep 17 00:00:00 2001 From: Orangerot Date: Fri, 17 May 2024 15:41:55 +0200 Subject: AoC 2023 --- 2023/day04/Main.hs | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) create mode 100644 2023/day04/Main.hs (limited to '2023/day04/Main.hs') diff --git a/2023/day04/Main.hs b/2023/day04/Main.hs new file mode 100644 index 0000000..9bf100b --- /dev/null +++ b/2023/day04/Main.hs @@ -0,0 +1,20 @@ +import Data.List.Split (splitOn) + +getGame :: String -> String +getGame s = tail $ dropWhile (/= ':') s + +splitGame :: String -> [[String]] +splitGame s = map (\x -> filter (/= "") (splitOn [' '] x)) (splitOn ['|'] s) + +calcPoints :: [String] -> Int +calcPoints w = round $ 2^^(length w - 1) + +main :: IO () +main = do + inputLines <- lines <$> getContents + let games = map (\x -> splitGame (getGame x)) inputLines + let wins = map (\[w, cards] -> filter (\card -> elem card w) cards) games + let points = map calcPoints wins + + print (sum points) + -- cgit v1.2.3