Create a gist now

Instantly share code, notes, and snippets.

anonymous /gist:2397842
Created Apr 16, 2012

(def xs (long-array (range 1000000)))
(def ys (long-array (range 1000000)))
(defn m [xs ys]
(let [z 3]
(loop [i (- (count xs) 1)]
(aset #^longs ys i (* z (aget #^longs xs i)))
(cond (> i 0)
(recur (unchecked-dec i))
(report-result (bench (m xs ys)) :verbose)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment