;; Calculate the sum of all numbers under 1000: user=> (reduce + (take-while (partial > 1000 ) (iterate inc 0))) 499500
zkim
on Thu, 04 Nov 2010
;; Calculate the sum of all numbers under 1000: user=> (reduce + (take-while (partial > 1000 ) (iterate inc 0))) 499500
devijvers
on Mon, 19 Jul 2010
Calculate the sum of all numbers under 1000: user=> (reduce + (take-while (partial > 1000 ) (iterate inc 0))) 499500
dpritchett
on Mon, 19 Jul 2010
Calculate the sum of all prime numbers under 1000: user=> (reduce + (take-while #(> 1000 %) (primes))) 76127
dpritchett
on Mon, 19 Jul 2010
user=> (reduce + (take-while #(> 1000 %) (primes))) 76127