interleave

function

since v0.0-927

clojure.core/interleave

Edit

---

Details:

---

See Also:

• interpose
• zipmap

---

Source docstring:

Returns a lazy seq of the first item in each coll, then the second etc.

(defn interleave
  ([] ())
  ([c1] (lazy-seq c1))
  ([c1 c2]
     (lazy-seq
      (let [s1 (seq c1) s2 (seq c2)]
        (when (and s1 s2)
          (cons (first s1) (cons (first s2)
                                 (interleave (rest s1) (rest s2))))))))
  ([c1 c2 & colls]
     (lazy-seq
      (let [ss (map seq (conj colls c2 c1))]
        (when (every? identity ss)
          (concat (map first ss) (apply interleave (map rest ss))))))))

---