(ns aocclj.day06)

(defn solver [window input]
  (first
   (keep-indexed
    (fn [idx item]
      (when ((comp #(= window %) count set) item) (+ window idx)))
    (partition-all window 1 input))))