如何解决方案使用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循环到特定问题中来在列表中查找特定元素?
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。