;; 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
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