anonymous / gist:2397842
Created

Embed URL

HTTPS clone URL

SSH clone URL

You can clone with HTTPS or SSH.

Download Gist
View gist:2397842
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
(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
Something went wrong with that request. Please try again.