- 192 名前：デフォルトの名無しさん mailto:sage [2012/04/28(土) 00:04:03.22 ]
- >>187
reduceでの解ということでひとつ。
(nreverse (reduce (lambda (r x) (cons (+ (or (car r) 0) x) r))
'(6 4 0 4 8 3 7 4 5 7)
:initial-value nil))
こういうのはloopやiterate、Seriesとかの方がすっきりできる感じがする。
あるいは内包表記とかもこういうの得意分野な感じ。
https://github.com/g000001/srfi-42
CLだとこの辺とか。
