Skip to content

anonymous /gist:2397842
Created

Embed URL

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
(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.