aoc2022/6-a.hs

import Data.List
import Data.Maybe

markerLength = 4

main = interact $
  show
  . (+ 1)
  . fromJust . (\l -> find (\i -> markerLength == length (nub $ map (l !!) [i - (markerLength - 1) .. i])) [(markerLength - 1)..])
day 6 2022-12-06 07:57:31 +01:00			`import Data.List`
day 6: remember that find exists 2022-12-06 08:26:56 +01:00			`import Data.Maybe`
day 6 2022-12-06 07:57:31 +01:00
			`markerLength = 4`

			`main = interact $`
			`show`
day 6: remember that find exists 2022-12-06 08:26:56 +01:00			`. (+ 1)`
			`. fromJust . (\l -> find (\i -> markerLength == length (nub $ map (l !!) [i - (markerLength - 1) .. i])) [(markerLength - 1)..])`