Clojure Core

Namespaces

clojure
- core
  - protocols
- data
- inspector
- java
  - browse
  - browse-ui
  - io
  - javadoc
  - shell
- main
- pprint
- reflect
- repl
- set
- stacktrace
- string
- template
- test
  - junit
  - tap
- walk
- xml
- zip

doc source examples comments

1.3.0 permalink

1.2.0
1.3.0

interleave

clojure.core

(interleave c1 c2)
(interleave c1 c2 & colls)

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

5 Examples top

link | changes
```
;; This example takes a list of keys and a separate list of values and 
;; inserts them into a map.
user=> (apply assoc {} 
         (interleave [:fruit :color :temp] 
                     ["grape" "red" "hot"]))

{:temp "hot", :color "red", :fruit "grape"}
```
;; This example takes a list of keys and a separate list of values and ;; inserts them into a map. user=> (apply assoc {} (interleave [:fruit :color :temp] ["grape" "red" "hot"])) {:temp "hot", :color "red", :fruit "grape"}
link | changes
```
;; Simple example:
user=> (interleave [:a :b :c] [1 2 3])
(:a 1 :b 2 :c 3)
```
;; Simple example: user=> (interleave [:a :b :c] [1 2 3]) (:a 1 :b 2 :c 3)
link | changes
```
;; The shortest input stops interleave:

user=> (interleave [:a :b] (iterate inc 1))
(:a 1 :b 2)
```
;; The shortest input stops interleave: user=> (interleave [:a :b] (iterate inc 1)) (:a 1 :b 2)
link | changes
```
(def s1 [[:000-00-0000 "TYPE 1" "JACKSON" "FRED"]
         [:000-00-0001 "TYPE 2" "SIMPSON" "HOMER"]
         [:000-00-0002 "TYPE 4" "SMITH" "SUSAN"]])

(interleave (map #(nth % 0 nil) s1) (map #(nth % 1 nil) s1))
```
(def s1 [[:000-00-0000 "TYPE 1" "JACKSON" "FRED"] [:000-00-0001 "TYPE 2" "SIMPSON" "HOMER"] [:000-00-0002 "TYPE 4" "SMITH" "SUSAN"]]) (interleave (map #(nth % 0 nil) s1) (map #(nth % 1 nil) s1))
link | changes
```
(def s1 [[:000-00-0000 "TYPE 1" "JACKSON" "FRED"]
         [:000-00-0001 "TYPE 2" "SIMPSON" "HOMER"]
         [:000-00-0002 "TYPE 4" "SMITH" "SUSAN"]])

(def cols [0 2 3])

(defn f1 
  [s1 col] 
  (map #(get-in s1 [% col] nil) (range (count s1))))

(apply interleave (map (partial f1 s1) cols))
(:000-00-0000 "JACKSON" "FRED" :000-00-0001 "SIMPSON" "HOMER" :000-00-0002 "SMITH" "SUSAN")
```
(def s1 [[:000-00-0000 "TYPE 1" "JACKSON" "FRED"] [:000-00-0001 "TYPE 2" "SIMPSON" "HOMER"] [:000-00-0002 "TYPE 4" "SMITH" "SUSAN"]]) (def cols [0 2 3]) (defn f1 [s1 col] (map #(get-in s1 [% col] nil) (range (count s1)))) (apply interleave (map (partial f1 s1) cols)) (:000-00-0000 "JACKSON" "FRED" :000-00-0001 "SIMPSON" "HOMER" :000-00-0002 "SMITH" "SUSAN")

Source clojure/core.clj:3820 top

(defn interleave
  "Returns a lazy seq of the first item in each coll, then the second etc."
  {:added "1.0"
   :static true}
  ([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))))))))

Vars in clojure.core/interleave:

Used in 0 other vars

ClojureDocs(beta)

Clojure Core

Namespaces

interleave

clojure.core

5 Examples top

See Also top

Source clojure/core.clj:3820 top

Comments top

No comments for interleave. Log in to add a comment.