diff options
author | Orangerot <purple@orangerot.dev> | 2024-05-17 15:41:55 +0200 |
---|---|---|
committer | Orangerot <purple@orangerot.dev> | 2024-12-01 05:55:27 +0100 |
commit | 347d2f1fbce2d3927a32b3af818ab67943628568 (patch) | |
tree | fae9181a8f69a7f26f9fec10bb0941ad4e0f1edd /2023/day04/Main2.hs | |
parent | a1895fe157e06ee4d119576163ea76390b3d402c (diff) |
Diffstat (limited to '2023/day04/Main2.hs')
-rw-r--r-- | 2023/day04/Main2.hs | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/2023/day04/Main2.hs b/2023/day04/Main2.hs new file mode 100644 index 0000000..7b883e8 --- /dev/null +++ b/2023/day04/Main2.hs @@ -0,0 +1,26 @@ +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 :: [(Int, Int)] -> (Int, [(Int, Int)]) -> (Int, [(Int, Int)]) +calcPoints dict (num_cards, []) = (num_cards, []) +calcPoints dict (num_cards, this) = + let new_wins = map (\(i, w) -> take w (drop i dict)) this + in calcPoints dict (num_cards + length new_wins, concat new_wins) + + + +main :: IO () +main = do + inputLines <- lines <$> getContents + let games = map (\x -> splitGame (getGame x)) inputLines + let wins = zip [1..] (map (\[w, cards] -> length (filter (\card -> elem card w) cards)) games) :: [(Int, Int)] + -- let points = map calcPoints wins + + print (calcPoints wins (0, wins)) + -- print (wins) + |