更简单的 Lisp 函数不起作用

Question

我正在尝试制作一个计算列表中列表数量的函数。

 (defun test (a)
           (if (equal a nil) (return-from test 0))
           (if (not (listp a)) (print "case a") (return-from test (+ 0 (test (cdr a))))
             (print "case b")(return-from test (+ 1 (test (cdr a)))))
           )

我不知道调试器是如何工作的，所以我尝试了一些使用打印语句的新手调试。上面的代码甚至没有执行。我不知道为什么。有效但给出错误答案的原始代码如下：

 (defun test (a)
           (if (equal a nil) (return-from test 0))
           (if (not (listp a)) (return-from test (+ 0 (test (cdr a))))
             (return-from test (+ 1 (test (cdr a)))))
           )

这是返回元素周期的数量，无论是否列表。我看不出我哪里错了。另一个问题也是，当我调用 (test 1) 或对任何原子进行测试时，它会崩溃。当然，您不能获取原子的 cdr，但我可以进行哪些错误检查？我可以进行哪些更改才能使这个荒谬的功能发挥作用？

Answer 1

第一个块不起作用，因为函数“if”在其中最多处理 3 种形式（条件 then-branch else-branch）。如果你想在一个分支中执行一些操作，你应该用 progn 包装它们：

(if (not (listp a))
  (progn
    (print "case a")
    (return-from test (+ 0 (test (cdr a)))))
  (progn
    (print "case b")
    (return-from test (+ 1 (test (cdr a))))))

第二个问题是检查（listp a）。您应该检查第一个元素是否是列表而不是整个列表是列表 (listp (car a))。

我不知道，你用的是什么 lisp 方言。在大多数情况下，“cond”形式是可用的，不需要特殊形式“return-from”。所以，你可以重写你的函数如下：

(defun test (a)
  (cond
    ((not (listp a)) nil) ; "atom" case
    ((not a) 0) ; empty list case
    ((listp (car a)) ; first element is list
     (print "case list")
     (+ 1 (test (cdr a))))
    (T ; fist element is not list
     (print "case not list")
     (test (cdr a))))) ; avoid adding zero because it has no effect