From c83d1a920e6ff5e72b8c03c3dbab601d70f10102 Mon Sep 17 00:00:00 2001
From: Oskar <git@oskar.lol>
Date: Thu, 8 Dec 2022 16:38:23 +0100
Subject: [PATCH] day6

---
 Makefile     |  2 +-
 day6/main.hs | 21 +++++++++++++++++++++
 2 files changed, 22 insertions(+), 1 deletion(-)
 create mode 100644 day6/main.hs

diff --git a/Makefile b/Makefile
index 2b2ea3c..79e0476 100644
--- a/Makefile
+++ b/Makefile
@@ -1,4 +1,4 @@
-DAY = 5
+DAY = 6
 
 DIR = day$(DAY)
 
diff --git a/day6/main.hs b/day6/main.hs
new file mode 100644
index 0000000..dba21ff
--- /dev/null
+++ b/day6/main.hs
@@ -0,0 +1,21 @@
+import System.IO
+import Data.List
+
+
+
+
+marker :: Int -> Int -> String -> Int
+marker p n s@(_:xs)
+    | unique == n = p+n
+    | otherwise   = marker (p+1) n xs
+    where
+        unique = length $ nub $ take n s
+
+
+handler :: String -> String
+handler s = (show $ marker 0 4 s) ++ "\n" ++
+            (show $ marker 0 14 s) ++ "\n"
+
+main :: IO ()
+main = do
+    interact handler