aoc2022day6.hs

import Data.List

window :: Int
window = 14

main = do
  input <- readFile "input.txt"
  print $ solve window input

noDupes :: Eq a => [a] -> Bool
noDupes x = nub x == x

solve :: Int -> String -> Int
solve depth str = if noDupes (take window str)
  then depth
  else solve (depth + 1) $ tail str