From 347d2f1fbce2d3927a32b3af818ab67943628568 Mon Sep 17 00:00:00 2001 From: Orangerot Date: Fri, 17 May 2024 15:41:55 +0200 Subject: AoC 2023 --- 2023/day06/Main.hs | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100644 2023/day06/Main.hs (limited to '2023/day06/Main.hs') diff --git a/2023/day06/Main.hs b/2023/day06/Main.hs new file mode 100644 index 0000000..c7976b0 --- /dev/null +++ b/2023/day06/Main.hs @@ -0,0 +1,18 @@ +import Data.List.Split (splitOn) + +winsFromTimeDist :: (Int, Int) -> Int +winsFromTimeDist (time, dist) = length $ filter (> dist) $ zipWith (*) [0..time] (reverse [0..time]) + +main :: IO () +main = do + lines <- lines <$> getContents + + -- let values = map (map (\y -> read y :: Int) . splitOn [' '] . drop 9) lines + let values = map (map read . filter (/= "") . splitOn [' '] . drop 9) lines :: [[Int]] + let time_dist = zip (values!!0) (values!!1) + let wins = map winsFromTimeDist time_dist + let result = product wins + + print result + + -- cgit v1.2.3