prob_39.clj

;http://www.4clojure.com/problem/39#prob-title

(= (#(let [result (zipmap % %2)]
         (apply concat result)) [1 2 3] [:a :b :c]) 
   '(1 :a 2 :b 3 :c))

(= (#(let [result (zipmap % %2)] 
       (apply concat result)) [1 2] [3 4 5 6]) 
   '(1 3 2 4))

(= (#(let [result (zipmap % %2)] 
       (apply concat result)) [1 2 3 4] [5]) 
   [1 5])

(= (#(let [result (zipmap % %2)] 
          (apply concat result)) [30 20] [25 15]) 
   [30 25 20 15])



; Solution
#(let [result (zipmap % %2)]
         (apply concat result))

;compact version #(apply concat (zipmap % %2))