(defn cumulative-sum
" Returns a sequence of cumulative sum for the given collection. For instance
The first value equals the first value of the argument, the second value is
the sum of the first two arguments, the third is the sum of the first three
arguments, etc.
Examples:
(use 'incanter.core)
(cumulative-sum (range 100))
"
([coll]
(loop [in-coll (rest coll)
cumu-sum [(first coll)]
cumu-val (first coll)]
(if (empty? in-coll)
cumu-sum
(let [cv (+ cumu-val (first in-coll))]
(recur (rest in-coll) (conj cumu-sum cv) cv))))))
Used in 0 other vars
Source
incanter/core.clj:830
top
Comments top
No comments for cumulative-sum. Log in to add a comment.