CLISP 的嵌套列表和 lambda 表达式存在一些问题

Question

Common Lisp 中的嵌套列表确实让我很困惑。问题如下：

通过使用递归，让 (nested-list 'b '(a (bc) d)) 返回 t 如果第一个参数出现在第二个参数中（可能是 嵌套列表），否则nil。

我尝试了find，但仅当第一个参数为'(bc)时才有效>。 我把目光转向了 lambda 表达式。我想压平第二个 首先使用参数，然后使用 eq 来比较参数。

(defun nested-list (x y)
  (cond     
    ((null y) ())    
    (t (append (lambda (flatten) (first y))

然后我就卡住了。尽管我读了很多关于 lambda 的东西 表达，它仍然让我困惑。不知道什么时候才能回忆起来 我需要，我知道 funcall 函数，但你知道我就是无法得到 它。我刚刚学习了 Common Lisp 5 天，所以我希望你能给我一个 暗示。多谢！

Answer 1

首先，除非你错误地输入了 if 而不是 iff，否则问题是相当微不足道的，只需返回 t 就可以了:-)

说实话相反，当您需要使用递归解决问题时，想法通常很简单：

1. 如果我们处于一个微不足道的情况下，只需返回答案
2. ，否则答案与我们通过解决问题得到的答案相同，只是稍微简单一点这个，我们称之为我们自己来解决这个简化版本。

具体考虑：

1. 如果第二个参数是空列表，则答案为 NIL
2. 如果第一个参数等于第二个参数的第一个元素，则只需返回 T
3. 否则，如果第二个列表的第一个元素是一个列表（因此也可能是一个嵌套列表）并且该元素包含在这个多重列表中，则返回 true （为了检查这种情况，函数正在调用自身）
4. 否则只需检查相同的问题，但是首先删除第二个参数的第一个元素，因为它已经被检查过（这也递归地调用相同的函数）

所以基本上 1 和 2 是简单的情况； 3 和 4 是您解决问题的更简单版本的情况。