Scheme Recursion / Cons

Question

我在路的尽头。我试着理解这个cons部分2-3个小时，但我遇到了麻烦。我无法理解这个缺点。它如何根据结果组合'a d'？

(define remv
  (lambda (x ls)
    (cond
      [(null? ls) '()]
      [(eqv? (car ls) x) (remv x (cdr ls))]
      [else (cons (car ls) (remv x (cdr ls)))])))

当我输入这样的输入时：

> (remv 'b '(a b b d)) 

我得到(a d)。

但我无法理解它是如何变成'a d'。

Answer 1

要从列表x中删除所有ls，您需要考虑以下三种情况：

1. ls为空，在这种情况下结果也为空，
2. ls的第一个元素等于x，在这种情况下，只需删除它并在从中移除所有x之后返回列表的其余部分，< / LI>
3. ls的第一个元素与x不同，在这种情况下，您保留该元素并将其粘贴在列表的前面，该列表中没有x个。 / LI>