用索引處的另一個序列替換序列的一部分

Question

是否有一種簡單的方法可以用指定位置上的另一個序列替換部分序列？

(def s1 '(1 2 3 4 5 6)) 
(def s2 '(:a :b :c)) 
(insert s1 s2 2) 

; => (1 2 :a :b :c 6) 

Answer 1

一種方式來做到這一點是：

(defn insert [a b idx] 
    (let [h (take idx a) 
     t (drop (+ idx (count b)) a)] 
    (concat h b t)))