Finish day 6

2 files changed, 33 insertions, 0 deletions

diff --git a/aoc-2022-dotnet/Day06/Day06.fsproj b/aoc-2022-dotnet/Day06/Day06.fsproj
new file mode 100644
index 0000000..249287d
--- /dev/null
+++ b/aoc-2022-dotnet/Day06/Day06.fsproj
@@ -0,0 +1,15 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <OutputType>Exe</OutputType>
+    <TargetFramework>net7.0</TargetFramework>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <Content Include="input.txt">
+      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+    </Content>
+    <Compile Include="Program.fs" />
+  </ItemGroup>
+
+</Project>
diff --git a/aoc-2022-dotnet/Day06/Program.fs b/aoc-2022-dotnet/Day06/Program.fs
new file mode 100644
index 0000000..75a5ffb
--- /dev/null
+++ b/aoc-2022-dotnet/Day06/Program.fs
@@ -0,0 +1,18 @@
+open System.IO
+
+let solution n =
+    Seq.windowed n
+    >> Seq.findIndex (Set >> Set.count >> (=) n)
+    >> (+) n
+
+assert
+    [ ("mjqjpqmgbljsphdztnvjfqwrcgsmlb", 7, 19)
+      ("bvwbjplbgvbhsrlpgdmjqwftvncz", 5, 23)
+      ("nppdvjthqldpwncqszvftbrmjlhg", 6, 23)
+      ("nznrnfrfntjfmvfwmzdfjlvtqnbhcprsg", 10, 29)
+      ("zcfzfwzzqfrljwzlrfnpqdbhtmscgvjw", 11, 26) ]
+    |> List.forall (fun (test, s4, s14) -> solution 4 test = s4 && solution 14 test = s14)
+
+let input = File.ReadAllText "input.txt"
+printfn "%d" <| solution 4 input
+printfn "%d" <| solution 14 input