kindlychung/sums.clj Secret

## sums.clj
(use 'criterium.core)
(defmacro bench-progress [& body]
  `(with-progress-reporting
     (bench ~@body)))
(defn sum [xs]
  (reduce + xs))
(defn array-sum [^ints xs]
  (loop [index 0 acc 0]
    (if (< index (alength xs))
      (recur (unchecked-inc index) (+ acc (aget xs index)))
      acc)))
(let [x (range 1e6)
      y (int-array x)]
  (bench-progress (sum x))
  (bench-progress (array-sum y)))
	(use 'criterium.core)
	(defmacro bench-progress [& body]
	`(with-progress-reporting
	(bench ~@body)))
	(defn sum [xs]
	(reduce + xs))
	(defn array-sum [^ints xs]
	(loop [index 0 acc 0]
	(if (< index (alength xs))
	(recur (unchecked-inc index) (+ acc (aget xs index)))
	acc)))
	(let [x (range 1e6)
	y (int-array x)]
	(bench-progress (sum x))
	(bench-progress (array-sum y)))