Changes for clojure.core/areduce

zkim on Sun, 26 Sep 2010
;; This should be about as quick as summing up a array of floats in java.

user=> (defn asum [#^floats xs]
         (areduce xs i ret (float 0)
                  (+ ret (aget xs i))))

user=> (asum (float-array [1 2 3]))
6.0
gstamp on Thu, 12 Aug 2010
This should be about as quick as summing up a array of floats in java.

user=> (defn asum [#^floats xs]
         (areduce xs i ret (float 0)
                  (+ ret (aget xs i))))
user=> (asum (float-array [1 2 3]))
6.0