为什么我的 lisp 程序没有运行？

Question

在学校“学习”Lisp，但我觉得我的学习不正确。我正在尝试编写一个函数来将所有数字添加到由列表、数字和字符串组成的列表中。我忽略了字符串并输入了列表。我对所有的括号都感到很迷茫......

我收到错误仿函数位置 0 中的非法参数

(defun add-all (L)
    (cond
        (
            (null L)
            (0)
        )
        ( 
            (listp (car L) )
            (+ (add-all (car L)) (add-all (cdr L)) )
        )
        (
            (stringp (car L) )
            (+ (add-all (cdr L)) )
        )
        ( 
            t
            (+ (car L) (add-all (cdr L)) )
        )
    )
)

Answer 1

您正试图在 cond 的第一个子句中调用函数 0。 IE。 (0)。这是为便于阅读而格式化的固定代码。

(defun add-all (list)
  (cond
    ((null list) 0)
    ((listp (car list)) (+ (add-all (car list)) (add-all (cdr list))))
    ((stringp (car list)) (+ (add-all (cdr list))))
    (t (+ (car list) (add-all (cdr list))))))

请问您为什么要处理列表中的字符串？

另外，我建议您使用可以为您格式化代码并平衡括号的文本编辑器。 Emacs 是最好的选择。 此外，此代码比 lispy 更“方案”。如果我可以问的话，你用什么书来学习 lisp。

Answer 2

在cond 的第一个子句中你有：

(
  (null L)
  (0)
)

我想你想要：

(
  (null L)
  0
)

...没有括号。