AoC/2022/day06/day06.hs

import Data.List
import Data.List.Split

main :: IO ()
main = do
  input <- readFile "input"
  print $ day6 4 input
  print $ day6 14 input

day6 :: Int -> String -> Int
day6 n = (+ n) . head . elemIndices n . map (length . nub . sort) . divvy n 1
day6 2022-12-06 10:30:31 +01:00			`import Data.List`
we hindent and hlint now 2022-12-11 12:03:12 +01:00			`import Data.List.Split`
day6 2022-12-06 10:30:31 +01:00
			`main :: IO ()`
			`main = do`
			`input <- readFile "input"`
			`print $ day6 4 input`
			`print $ day6 14 input`

			`day6 :: Int -> String -> Int`
we hindent and hlint now 2022-12-11 12:03:12 +01:00			`day6 n = (+ n) . head . elemIndices n . map (length . nub . sort) . divvy n 1`