函数名称上的未绑定变量

Question

我正在用 Lisp（普通 lisp 方言）编写一个程序.. 我希望程序计算列表中子列表的数量。 这是我到目前为止所写的：

(defun llength (L)
      (cond 
          ((null L)   0)    
          ((list (first L)) (progn (+ (llength (first L)) 1) (llength (rest L))))    
          ((atom (first L)) (llength (rest L)))
      )
)

该函数返回错误“未绑定变量：LLENGTH”，我不明白为什么或如何修复它。 有什么建议吗？

Answer 1

您的代码中有多个错误。

首先，list函数创建新列表，而不检查它是否是列表。您需要的函数是 listp - 末尾的“p”表示“谓词”。

其次，(progn (+ (llength (first L)) 1) (llength (rest L)) 不会增加计数器。progn 逐个执行表达式并返回 < strong>最后一个表达式的结果，其他结果主要是为了副作用而被丢弃：1表示找到了一个。列表，将函数应用于第一个元素的结果和应用于其余元素的结果因此，这一行必须是：

((listp (first L)) (+ (llength (first L)) (llength (rest L)) 1))

可能存在更多错误，请小心正确缩进代码 - 这确实有助于减少错误。

Answer 2

当您使用 (defun function name (parameters)) 调用定义函数时，您必须通过键入以下内容来调用该函数：

(function name (parameters))

也许您只是键入：

function name (parameters)

这样做会导致您收到错误，因此确保将您的整个陈述包含在括号中。

Answer 3

(defun llength (list)
  (cond 
    ((null list) 0)
    ((listp (first list))
     ;; 1 + the count of any sub-lists in this sub-list + the 
     ;; count of any sub-lists in the rest of the list.
     (+ 1 (llength (first list))
        (llength (rest list))))
    (t (llength (rest list)))))

测试：

> (llength '(1 2 3 4))
0
> (llength '(1 2 (3 4)))
1
> (llength '(1 2 (3 (4))))
2
> (llength '(1 2 (3 4) (5 6) (7 8) (9 (10 (11)))))
6