From 0f4c87139ea2099d000d59ab0acf9307011a9af0 Mon Sep 17 00:00:00 2001
From: Brian Chu <brianmchu42@gmail.com>
Date: Mon, 5 Dec 2022 21:23:25 -0800
Subject: solution for day 6

---
 solutions/day6.fs | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 solutions/day6.fs

(limited to 'solutions')

diff --git a/solutions/day6.fs b/solutions/day6.fs
new file mode 100644
index 0000000..bb83388
--- /dev/null
+++ b/solutions/day6.fs
@@ -0,0 +1,20 @@
+namespace Solutions
+
+module Day6 =
+    open System.IO
+
+    let buf = File.ReadAllText("inputs/day6.txt")
+
+    let rec scan size str index =
+        if String.length str < size then -1
+        else
+            let current = str[..size - 1] |> Set.ofSeq
+            if Set.count current = size then index + size
+            else
+                scan size str[1..] index + 1
+
+    let part1 () =
+        scan 4 buf 0
+
+    let part2 () =
+        scan 14 buf 0
\ No newline at end of file
-- 
cgit 1.4.1-2-gfad0