Skip to content

Instantly share code, notes, and snippets.

@cgrand
Last active February 9, 2017 15:25
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 cgrand/19a4d5606459d7ae43f0da9996f36c2d to your computer and use it in GitHub Desktop.
Save cgrand/19a4d5606459d7ae43f0da9996f36c2d to your computer and use it in GitHub Desktop.
=> (class #(* 10 %))
user$eval19119$fn__19120
=> (class #(* 10 %))
user$eval19124$fn__19125
=> (class #(* 10 %))
user$eval19129$fn__19130
=> (class #(* 10 %))
user$eval19134$fn__19135
=> (class #(* 10 %))
user$eval19139$fn__19140
=> (def f #(* 10 %))
#'user/f
=> (class f)
user$f
=> (time (count (mapv (partial * 10) (range 10000))))
(time (count (mapv #(* 10 %) (range 10000))))
(time (count (mapv (user$f.) (range 10000))))
"Elapsed time: 0.498 msecs"
10000
"Elapsed time: 1.56 msecs"
10000
"Elapsed time: 2.05 msecs"
10000
=> (time (count (mapv (partial * 10) (range 10000))))
(time (count (mapv #(* 10 %) (range 10000))))
(time (count (mapv (user$f.) (range 10000))))
"Elapsed time: 0.613 msecs"
10000
"Elapsed time: 1.461 msecs"
10000
"Elapsed time: 0.72 msecs"
10000
=> (time (count (mapv (partial * 10) (range 10000))))
(time (count (mapv #(* 10 %) (range 10000))))
(time (count (mapv (user$f.) (range 10000))))
"Elapsed time: 1.21 msecs"
10000
"Elapsed time: 1.512 msecs"
10000
"Elapsed time: 0.713 msecs"
10000
=> (time (count (mapv (partial * 10) (range 10000))))
(time (count (mapv #(* 10 %) (range 10000))))
(time (count (mapv (user$f.) (range 10000))))
"Elapsed time: 0.498 msecs"
10000
"Elapsed time: 1.191 msecs"
10000
"Elapsed time: 0.731 msecs"
10000
=> (time (count (mapv (partial * 10) (range 10000))))
(time (count (mapv #(* 10 %) (range 10000))))
(time (count (mapv (user$f.) (range 10000))))
"Elapsed time: 0.728 msecs"
10000
"Elapsed time: 1.796 msecs"
10000
"Elapsed time: 0.431 msecs"
10000
=> (time (count (mapv (partial * 10) (range 10000))))
(time (count (mapv #(* 10 %) (range 10000))))
(time (count (mapv (user$f.) (range 10000))))
"Elapsed time: 0.533 msecs"
10000
"Elapsed time: 0.972 msecs"
10000
"Elapsed time: 0.464 msecs"
10000
=> (time (count (mapv (partial * 10) (range 10000))))
(time (count (mapv #(* 10 %) (range 10000))))
(time (count (mapv (user$f.) (range 10000))))
"Elapsed time: 0.502 msecs"
10000
"Elapsed time: 1.801 msecs"
10000
"Elapsed time: 0.705 msecs"
10000
=> (time (count (mapv (partial * 10) (range 10000))))
(time (count (mapv #(* 10 %) (range 10000))))
(time (count (mapv (user$f.) (range 10000))))
"Elapsed time: 0.813 msecs"
10000
"Elapsed time: 1.878 msecs"
10000
"Elapsed time: 0.585 msecs"
10000
=> (time (count (mapv (partial * 10) (range 10000))))
(time (count (mapv #(* 10 %) (range 10000))))
(time (count (mapv (user$f.) (range 10000))))
"Elapsed time: 0.501 msecs"
10000
"Elapsed time: 1.268 msecs"
10000
"Elapsed time: 0.454 msecs"
10000
=> (time (count (mapv (partial * 10) (range 10000))))
(time (count (mapv #(* 10 %) (range 10000))))
(time (count (mapv (user$f.) (range 10000))))
"Elapsed time: 0.535 msecs"
10000
"Elapsed time: 1.878 msecs"
10000
"Elapsed time: 0.713 msecs"
10000
=> (time (count (mapv (partial * 10) (range 10000))))
(time (count (mapv #(* 10 %) (range 10000))))
(time (count (mapv (user$f.) (range 10000))))
"Elapsed time: 0.499 msecs"
10000
"Elapsed time: 1.19 msecs"
10000
"Elapsed time: 0.427 msecs"
10000
=> (time (count (mapv (partial * 10) (range 10000))))
(time (count (mapv #(* 10 %) (range 10000))))
(time (count (mapv (user$f.) (range 10000))))
"Elapsed time: 0.503 msecs"
10000
"Elapsed time: 1.291 msecs"
10000
"Elapsed time: 0.451 msecs"
10000
=> (time (count (mapv (partial * 10) (range 10000))))
(time (count (mapv #(* 10 %) (range 10000))))
(time (count (mapv (user$f.) (range 10000))))
"Elapsed time: 0.501 msecs"
10000
"Elapsed time: 1.061 msecs"
10000
"Elapsed time: 0.434 msecs"
10000
=> (time (count (mapv (partial * 10) (range 10000))))
(time (count (mapv #(* 10 %) (range 10000))))
(time (count (mapv (user$f.) (range 10000))))
"Elapsed time: 0.514 msecs"
10000
"Elapsed time: 1.209 msecs"
10000
"Elapsed time: 0.468 msecs"
10000
=> (time (count (mapv (partial * 10) (range 10000))))
(time (count (mapv #(* 10 %) (range 10000))))
(time (count (mapv (user$f.) (range 10000))))
"Elapsed time: 0.536 msecs"
10000
"Elapsed time: 1.426 msecs"
10000
"Elapsed time: 0.435 msecs"
10000
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment