rewrite.clj

(defn rewrite [value & {:keys [zipper rewrite? mapper]}]
  (loop [acc {} loc (->> value zipper z/next)]
    (let [n (z/node loc)]
      (cond
        (->> loc z/end?) [n acc]
        (or (vector? n) (not (rewrite? n))) (recur acc (z/next loc))
        (contains? acc n) (recur acc (z/next (z/replace loc (get acc n))))
        :else (let [mapped (mapper n)]
                (recur (assoc acc n mapped)
                       (z/next (z/replace loc mapped))))))))

(rewrite [1 [2 3] [4 5] 2 4] :rewrite? even? :mapper inc :zipper z/vector-zip)