(defn myF [v crit]
  (loop [i 0 a 0 crit crit v v]
    (if (< i (count v))
      (if (not= (v i) (if (= (inc i) (count v)) (inc (v i)) (v (inc i))))
        (if (< crit (inc a))
          (recur (- i a) 0 crit (into [] (concat (subvec v 0 (- i a)) (subvec v (inc i) (count v)))))
          (recur (inc i) 0 crit v)
        )
        (recur (inc i) (inc a) crit v)
      ) v
    )
  )
)

(println (myF [0 0 2 2 0 1 1 1 5 7 7 7 1 1 1] 2))