AoC 2023HEADmain

1 files changed, 18 insertions, 0 deletions

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
+
+