Jaki jest idiomatyczny sposób mapowania wektora według najdłuższego seq w clojure?

Question

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

da:

([1 4] [2 5]) 

Tutaj 3 odrzucono.

Co zrobić, jeśli chcę automatycznie wstawić te zbyt krótkie seqs na największą długość?

np. Jaka jest idiomatycznych sposób, jeśli chcę dostać

([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])