clojure - 如何制作累积序列？

Question

说我有一个像下面这样的惰性序列:

(def s (iterate inc 1))
(take 10 s)
=> (1 2 3 4 5 6 7 8 9 10)

现在，我想生成一个 s的累积和序列，如下所示:

=> (1 3 6 10 15 ...)

我怎样才能做到这一点？
我试过的是使用 atom并将其总和累加(变异)，这是生成累积序列的唯一方法还是有更好的方法呢？

注意:上面的累计和只是一个示例。源序列可以是其他序列。所以我不能使用公式: s(n) = n(n+1)/2

Answer 1

(take 10 (reductions + s))
=> (1 3 6 10 15 21 28 36 45 55)