LISP:如何获得列表的总和？ (没有全局变量)

Question

我是 LISP 新手。

为了得到一个列表的总和，我这样写——

(setf sum 0.0)
(mapcar #'(lambda(x)
    (setf sum (+ sum x)) sum) values))

例如，如果您将 '(1 2 3 4) 作为输入，上述代码将返回 '(1 3 6 10) 作为输出，依此类推。

是否可以在不使用全局变量 sum 的情况下(以更优雅的方式)做同样的事情？

Answer 1

(loop for x in '(1 2 3 4) sum x into y collect y)

scanl 是一个单行代码:

(defun scanl (f init xs)
  (loop for x in xs collect (setf init (funcall f init x))))