Clojureでzip関数を作ってみる ref: http://qiita.com/kurogelee/items/f8e22c230dd2b16110c7

file1.txt

(zipseq [1 2 3] [:a :b :c]) ; => ((1 :a) (2 :b) (3 :c))
(zipseq [1 2] [:a :b] [:c :d]) ; => ((1 :a :c) (2 :b :d))

file3.txt

(zipseq [1 2 3]) ; => ((1) (2) (3))

zipseq1.clj

(defn zipseq [& colls] (partition (count colls) (apply interleave colls)))

zipseq2.clj

(defn zipseq
  ([coll] (partition 1 coll))
  ([c1 & colls] (let [c (cons c1 colls)] (partition (count c) (apply interleave c)))))