方案 Recursion/Cons
Scheme Recursion/Cons
我在路的起点。 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'
的。
要从列表 ls
中删除所有出现的 x
,您需要考虑三种情况:
ls
为空,这样结果也为空,
ls
的第一个元素等于 x
,在这种情况下,您只需删除它,return 删除所有 x
后列表的其余部分]来自它,
ls
的第一个元素不同于 x
,在这种情况下,您保留该元素并将其粘贴在没有 x
的列表的前面.
我在路的起点。 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'
的。
要从列表 ls
中删除所有出现的 x
,您需要考虑三种情况:
ls
为空,这样结果也为空,ls
的第一个元素等于x
,在这种情况下,您只需删除它,return 删除所有x
后列表的其余部分]来自它,ls
的第一个元素不同于x
,在这种情况下,您保留该元素并将其粘贴在没有x
的列表的前面.