用索引处的另一个序列替换序列的一部分

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)))