AoC 2023HEADmain

4 files changed, 38 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
+
+
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