AoC 2023HEADmain

1 files changed, 16 insertions, 0 deletions

diff --git a/2023/day06/Main2.hs b/2023/day06/Main2.hs
new file mode 100644
index 0000000..ca975dd
--- /dev/null
+++ b/2023/day06/Main2.hs
@@ -0,0 +1,16 @@
+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 (read . filter (/= ' ') .  drop 9) lines :: [Int]
+  let wins = winsFromTimeDist (values!!0, values!!1)
+
+  print wins
+
+