kata

(defn make-calls [n func]
    (take n (repeatedly func)))
(def rndnum (fn [x] (make-calls x #(rand-int 100))))
(def initial_time (. System currentTimeMillis))

(def mylist (make-calls 10 #(rndnum 500)))

(comment First method)
(loop [i 0]
    (when (< i 1000)
        (def sum 0)
        (dorun (for [sublist mylist]
            (def sum (+ sum (apply + sublist)))))
        (recur (inc i))))

(def final_time (- (. System currentTimeMillis) initial_time))
(println "First method microseconds:" final_time " Sum:" sum)

(comment Secont method)
(def initial_time (. System currentTimeMillis))
(loop [i 0]
    (when (< i 1000)
        (def sum (apply + (apply concat mylist)))
        (recur (inc i))))

(def final_time (- (. System currentTimeMillis) initial_time))
(println "Second method microseconds:" final_time " Sum:" sum)