[rjn945]

Based on the work of a previous commenter, I posted this code in the blog comments:

  (defn add-rands []
    (let [ds (double-array 30000000)]
      (dotimes [i 30000000] (aset ds i (Math/random)))
      (time (areduce ds i res 0.0 (+ res (aget ds i))))))

This adds 30,000,000 numbers in 73ms on my machine. His Lush code added 30,000,000 in 180ms. I estimate my computer is twice as fast as his, putting them on par. Hopefully he will run the code so we can see all the run times on the same machine. (I never could get his Lush code running.)

Of course, the Clojure code here is fairly involved to do some basic stuff, but if you did things like this often it would not be hard to add some nice syntactic sugar over it.