emacs - 如何对 Emacs Lisp 中的数字列表求和？

Question

这有效：

(+ 1 2 3)
6

这不起作用：

(+ '(1 2 3))

如果cl-*加载了“”，则此方法有效：

(reduce '+ '(1 2 3))
6

如果reduce总是有空，我可以写：

(defun sum (L)
  (reduce '+ L))

(sum '(1 2 3))
6

定义函数的最佳实践是sum什么？

Answer 1

(apply '+ '(1 2 3))

Answer 2

如果您在 Emacs 中操作列表并编写功能代码，请安装dash.el库。然后你可以使用它的-sum功能：

(-sum '(1 2 3 4 5)) ; => 15

Answer 3

线性递归函数 (sum L)

;;
;; sum
;;
(defun sum(list)    
    (if (null list)
        0

        (+ 
            (first list) 
            (sum (rest list))
        )   
    )   
)

Answer 4

您可以定义自定义函数来计算传递给它的列表的总和。

(defun sum (lst) (format t "The sum is ~s~%" (write-to-string (apply '+ lst))) 
EVAL: (sum '(1 4 6 4))
-> The sum is "15"

Answer 5

这应该可以解决问题：

(defun sum-list (list)
  (if list
      (+ (car list) (sum-list (cdr list)))
    0))

[来源]

编辑：这是另一个很好的链接，它解释了car-cdr基本上它们是允许您获取列表的第一个元素并检索没有第一个项目的新列表的功能。

Answer 6

(eval (cons '+ '(1 2 3)))-- 虽然不如“减少”

Answer 7

（插入（数字到字符串（应用'+'（1 2 3））））