1 files changed, 19 insertions, 0 deletions
diff --git a/solutions/day1.fs b/solutions/day1.fs
new file mode 100644
index 0000000..0b2c519
--- /dev/null
+++ b/solutions/day1.fs
@@ -0,0 +1,19 @@
+namespace Solutions
+
+module Day1 =
+    open System.IO
+
+    let lines = File.ReadLines("inputs/day1.txt")
+    let totalWeights = seq {
+        let mutable subseq = 0
+
+        for line in lines do
+        if line.Equals("") then
+            yield subseq
+            subseq <- 0
+        else
+            subseq <- subseq + int line
+    }
+
+    let part1 () = totalWeights |> Seq.max
+    let part2 () = totalWeights |> Seq.sortDescending |> Seq.take 3 |> Seq.sum