LISP 列表项的总和

编程问答 2022-05-03

问题描述

我写了这个重写的宏，例如(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 定义等效函数？

解决方法

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

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

会非常简单，但在某些实现中，依赖于实现的 CALL-ARGUMENTS-LIMIT 将 lst 的长度限制为 50，如所讨论的，例如here .因此，reduce 的解决方案更简洁。

,

听起来您需要评估列表中的表达式，然后通过加法函数减少结果列表。

我们可以使用 eval 评估 lisp 表达式，我们可以使用 mapcar 将其应用于输入列表的每个元素。

然后我们可以在结果列表上使用 reduce 来求和。

(defun sum-expr (list)
  (reduce #'+ (mapcar #'eval list)))

这对输入的结构和类型做出了很多假设，但对于具有易于理解的输入的简单问题，应该没问题。

（您可能对Why exactly is eval evil?感兴趣）

common-lisplisplisplisp