Upload first two days of year 2022

2 files changed, 55 insertions, 0 deletions

diff --git a/aoc-2022-dotnet/Day01/Day01.fsproj b/aoc-2022-dotnet/Day01/Day01.fsproj
new file mode 100644
index 0000000..e337a41
--- /dev/null
+++ b/aoc-2022-dotnet/Day01/Day01.fsproj
@@ -0,0 +1,18 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <OutputType>Exe</OutputType>
+    <TargetFramework>net7.0</TargetFramework>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <Content Include="test.txt">
+      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+    </Content>
+    <Content Include="input.txt">
+      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+    </Content>
+    <Compile Include="Program.fs" />
+  </ItemGroup>
+
+</Project>
diff --git a/aoc-2022-dotnet/Day01/Program.fs b/aoc-2022-dotnet/Day01/Program.fs
new file mode 100644
index 0000000..ecc35f1
--- /dev/null
+++ b/aoc-2022-dotnet/Day01/Program.fs
@@ -0,0 +1,37 @@
+open System.IO
+
+let parseLine = function "" -> None | l -> Some(int l)
+let readInput path = File.ReadLines path |> Seq.map parseLine
+
+let splitOnNone xs =
+    let (lastGroup, result) = Seq.fold (fun (groupAcc, resultAcc) x ->
+        match x with
+        | Some(value) -> (value :: groupAcc, resultAcc)
+        | None -> (List.empty, (List.rev groupAcc) :: resultAcc)) (List.empty, List.empty) xs
+    in List.rev (if List.isEmpty lastGroup then result else lastGroup :: result)
+
+let groupCalorySums data = data |> splitOnNone |> List.map List.sum
+
+let mostTotalCalories data = data |> groupCalorySums |> List.max
+
+let rec insert x xs =
+  match xs with
+    | [] -> [x]
+    | y::ys -> if x < y then x::y::ys else y::insert x ys
+
+let topN n data =
+    Seq.fold (fun acc elem ->
+        if List.length acc < n then insert elem acc
+        elif List.head acc < elem then insert elem (List.tail acc)
+        else acc
+    ) List.empty data
+
+let top3TotalCaloriesSum data = data |> groupCalorySums |> topN 3 |> List.sum
+
+let test = readInput "test.txt"
+assert (mostTotalCalories test = 24000)
+assert (top3TotalCaloriesSum test = 45000)
+
+let input = readInput "input.txt"
+printfn "%d" (mostTotalCalories input)
+printfn "%d" (top3TotalCaloriesSum input)