Qual è il modo idiomatico di mappare il vettore in base al seq più lungo in clojure?

Question

(map vector [1 2 3] [4 5]) 

darà:

([1 4] [2 5]) 

qui 3 viene scartata.

E se si desidera eseguire il riempimento automatico di quelle seqs troppo corte per la lunghezza massima?

ad es. Qual è il modo idiomatico se voglio ottenere

([1 4] [2 5] [3 nil]) 

Answer 1

(defn map-all [f & colls] 
    (lazy-seq 
    (when (some seq colls) 
    (cons (apply f (map first colls)) 
      (apply map-all f (map rest colls)))))) 

(map-all vector [1 2 3] [4 5]) 
;=> ([1 4] [2 5] [3 nil])