方案递归/缺点

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

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

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