Skip to content
Create a gist now

Instantly share code, notes, and snippets.

anonymous /gist:2397842
Created

(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.