list - 替换子序列的函数

Question

有没有可以替换子序列的函数？例如:

user> (good-fnc [1 2 3 4 5] [1 2] [3 4 5])
;; => [3 4 5 3 4 5]

我知道有 clojure.string/replace对于字符串:

user> (clojure.string/replace "fat cat caught a rat" "a" "AA")
;; => "fAAt cAAt cAAught AA rAAt"

向量和列表有类似的东西吗？

Answer 1

这对你有用吗？

(defn good-fnc [s sub r]
  (loop [acc []
         s s]
    (cond
      (empty? s) (seq acc)
      (= (take (count sub) s) sub) (recur (apply conj acc r)
                                          (drop (count sub) s))
      :else (recur (conj acc (first s)) (rest s)))))