Skip to content

Instantly share code, notes, and snippets.

@dkvasnicka

dkvasnicka/dot.clj

Created July 6, 2013 07:18
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 dkvasnicka/5939035 to your computer and use it in GitHub Desktop.
Save dkvasnicka/5939035 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
dot.clj
(let [rng (doall (range 1000000))]
(time (reduce + (map * rng rng))))
Raw
dot.lisp
(let ((range (loop for i from 0 below 1000000 collect i)))
(time (reduce '+ (map 'list '* range range))))
Raw
dot.rkt
#lang racket
(let [[rng (range 1000000)]]
(time (foldl + 0 (map * rng rng))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment