So for example [1 2 3] [:a :b :c] => [1 :a 2 :b 3 :c]
(fn [sq1] [sq2]
(loop [src1 sq1, src2 sq2, dest []]
(if (and (seq src1) (seq src2))
(recur
(rest src1)
(rest src2)
(conj dest (first src1) (first src2)))
dest)))
No comments:
Post a Comment