From 347d2f1fbce2d3927a32b3af818ab67943628568 Mon Sep 17 00:00:00 2001
From: Orangerot <purple@orangerot.dev>
Date: Fri, 17 May 2024 15:41:55 +0200
Subject: AoC 2023

---
 2023/day06/Main.hs     | 18 ++++++++++++++++++
 2023/day06/Main2.hs    | 16 ++++++++++++++++
 2023/day06/example.txt |  2 ++
 2023/day06/input.txt   |  2 ++
 4 files changed, 38 insertions(+)
 create mode 100644 2023/day06/Main.hs
 create mode 100644 2023/day06/Main2.hs
 create mode 100644 2023/day06/example.txt
 create mode 100644 2023/day06/input.txt

(limited to '2023/day06')

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
+
+
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
+
+
diff --git a/2023/day06/example.txt b/2023/day06/example.txt
new file mode 100644
index 0000000..28f5ae9
--- /dev/null
+++ b/2023/day06/example.txt
@@ -0,0 +1,2 @@
+Time:      7  15   30
+Distance:  9  40  200
diff --git a/2023/day06/input.txt b/2023/day06/input.txt
new file mode 100644
index 0000000..bb5cfbc
--- /dev/null
+++ b/2023/day06/input.txt
@@ -0,0 +1,2 @@
+Time:        38     94     79     70
+Distance:   241   1549   1074   1091
-- 
cgit v1.2.3