day6

Makefile

@@ -1,4 +1,4 @@
-DAY = 5
+DAY = 6
 
 DIR = day$(DAY)
 

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