如何解决LISP 列表项的总和
我写了这个重写的宏,例如(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?感兴趣)
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。