方案使用doicle验证一个列表中的元素是否在第二个列表中

问题描述

| 如果第一个列表的元素在第二个列表中，我们如何与方案一起验证？     

解决方法

球拍中的do循环具有有趣的结构：

(do ([id init-expr step-expr-maybe] ...)
    (stop?-expr finish-expr ...)
  expr ...)

r5rs的文档提供了一个示例：

(let ((x \'(1 3 5 7 9)))
  (do ((x x (cdr x))
       (sum 0 (+ sum (car x))))
      ((null? x) sum)))

该语句返回25，即循环元素的总和。 do循环中的

x

初始化为let的

x

，然后每次循环都将其自身的ѭ4迭代设置。

sum

被初始化为0，并且每次累积

x

的

car

的值。停止条件是当迭代变量为空时，返回值为总和。 好吧，除了球拍偏爱方括号外，这看起来还不错。有一个do循环和一个列表。循环在该列表上执行了某些操作。我们可以使用它来编写一个在列表中查找特定原子的函数（使用球拍括号）：

(define (find5 lst)
  (do ([x lst (rest x)]
       [found #f (or found (eq? 5 (first x)))])
    ((null? x) found)))

不用初始化值adding5 and，而是将

or

加到

found

。另外，我更喜欢

first

和

rest

而不是

car

和

cdr

，并在它们不存在时自行定义它们。该功能的工作方式应遵循示例的解释。

(find5 \'(1 2 3 4 6))

按预期方式给出#f。类似地：

(find5 \'(1 2 3 4 5 6))

给#t。 您是否可以使用do循环到特定问题中来在列表中查找特定元素？