Skip to content

Instantly share code, notes, and snippets.

@gfredericks

gfredericks/wtf.clj

Created May 20, 2011 18:21
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save gfredericks/983477 to your computer and use it in GitHub Desktop.
Save gfredericks/983477 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
wtf.clj
user=> (dotimes [_ 10]
(let [x (A. 1 2 3)]
(time
(dotimes [_ 1e8]
(.c ^A x)))))
"Elapsed time: 5.509002 msecs"
"Elapsed time: 0.080946 msecs"
"Elapsed time: 0.075289 msecs"
"Elapsed time: 0.07487 msecs"
"Elapsed time: 0.07494 msecs"
"Elapsed time: 0.07501 msecs"
"Elapsed time: 0.074939 msecs"
"Elapsed time: 0.0748 msecs"
"Elapsed time: 0.07466 msecs"
"Elapsed time: 0.07466 msecs"
nil
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment