ST
Size: a a a
ST
KR
KR
ST
ST
СС
СС
T
T
x0 = x
x1 = (+ x0 1)
x2 = (+ x1 2)
x3 = (+ x2 3)
...
xi = (+ xi-1 i)
T
T
T
СС
D
T
T
ST
ST
(defn generate
[init]
(let [counter (atom (long 0))]
(iterate
(fn [^long n] (+ n ^long (swap! counter inc))) init)))
(take 10 (generate 0))
=> (0 1 3 6 10 15 21 28 36 45)
T
T