Create a gist now

Instantly share code, notes, and snippets.

What would you like to do?
(let [rng (doall (range 1000000))]
(time (reduce + (map * rng rng))))
(let ((range (loop for i from 0 below 1000000 collect i)))
(time (reduce '+ (map 'list '* range range))))
#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