recursion - 方案递归/缺点

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，在这种情况下，您只需删除它并在从中删除所有xes 后返回列表的其余部分，
3. 的第一个元素与ls不同x，在这种情况下，您保留该元素并将其粘贴在没有xes 的列表的前面。