LISP 列表项的总和

Question

我写了这个重写的宏，例如(sum-expr (1 2 3))如 (+ 1 2 3) :

(defmacro sum-expr (expr-list)
  `(+ ,@expr-list))

=> SUM-EXPR

例如:

(sum-expr ((+ 1 3) (* 3 4) (- 8 4)))

=> 20

如何使用 defun 定义等效函数?

Answer 1

正如@LeonardoDagnino 已经在评论中提到的那样:

(defun sum-expr (lst)
  (apply #'+ lst))

会非常流畅，但依赖于实现 CALL-ARGUMENTS-LIMIT在某些实现中限制 lst 的长度如所讨论的 50，例如 here .所以，用 reduce的解决方法更干净。