- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我一直在网上搜索 Eratosthenes 筛法在 scheme 中的实现,虽然我想出了很多内容,但似乎没有一个符合我的需要。
问题是大多数算法要么使用静态结束,要么使用迭代。这再加上我对语言知识的缺乏导致我向你们所有人寻求帮助。
我需要一个 Sieve 的实现,它接受一个参数(Sieve until 的数字),仅使用递归并具有一个带有 #t
(true) 的数字的“缺点”列表或 #f
(假)。
所以基本上算法会这样进行:
示例输出:
> (erat-sieve 20)
((2 . #t) (3 . #t) (4 . #f) (5 . #t) (6 . #f) (7 . #t) (8 . #f) (9 . #f) (10 . #f) (11 . #t) (12 . #f) (13 . #t) (14 . #f) (15 . #f) (16 . #f) (17 . #t) (18 . #f) (19 . #t) (20 . #f))
如果您也能提供评论来彻底解释代码,那将不胜感激。
谢谢!
修订:::所以我学到了一些方案来进一步解释我的问题......
这就是列表。
(define (makeList n)
(if (> n 2)
(append (makeList (- n 1)) (list (cons n (and))))
(list (cons 2 (and)))))
这将返回一个列表,其中每个除数的倍数都标记为 false。
(define (mark-off-multiples numbers divisor)
(if (null? numbers)
'()
(append
(list (cons (car (car numbers))
(not (zero? (modulo (car (car numbers)) divisor)))))
(mark-off-multiples (cdr numbers) divisor))))
现在这是我遇到问题的功能,它似乎应该可以工作,我已经手动检查了它 3 次,但我不明白为什么它没有返回我需要的东西。
(define (call-mark-off-multiples-for-each-true-number numbers)
(if (null? numbers)
'()
(if (cdr (car numbers))
(append (list (car numbers))
(call-mark-off-multiples-for-each-true-number
(mark-off-multiples (cdr numbers) (car (car numbers)))))
(append (list (car numbers))
(call-mark-off-multiples-for-each-true-number
(cdr numbers))))))
正如函数名称所暗示的那样,我试图让它做的是,为列表中仍标记为真的每个数字调用标记乘数。所以你传入 ((3.#t)(4.#t)(5.#t))
然后它为 2 调用 mark-off-multiples
和返回 (3.#t)(4.#f)(5.#t)
并向其附加 (2.#t)
。然后它再次调用自身传入 (3.#t)(4.#f)(5.#t)
并使用 cdr 调用 mark-off-multiples列表返回 (4.#f)(5.#t)
并继续在列表中向下移动...
然后我返回的输出是一个包含所有真值的列表。
这,希望能帮助你更好地理解我的困境。
最佳答案
这是一个有效的解决方案。
(define (divides? m n)
(if (eq? (modulo n m) 0)
#t
#f))
(define (mark-true n)
(cons n #t))
(define (mark-divisors n ns)
(cond ((null? ns) '())
((and (unmarked? (car ns))
(divides? n (car ns)))
(cons (cons (car ns) #f) (mark-divisors n (cdr ns))))
(else (cons (car ns) (mark-divisors n (cdr ns))))))
(define (unmarked? n)
(not (pair? n)))
(define (eratosthenes x)
(cond ((null? x) '())
((unmarked? (car x))
(cons (mark-true (car x))
(eratosthenes (mark-divisors (car x) (cdr x)))))
(else (cons (car x) (eratosthenes (cdr x))))))
(eratosthenes (list 2 3 4 5 6))
我已经使用了许多辅助函数,但如果需要,您可以将它们添加到 eratosthenes 函数中。我认为这使整个业务更具可读性。
mark-true
将一个值放在 #t
上。 mark-divisors
接受一个数字 n
和一个数字列表,并将所有被 n
划分的数字包含在一个 #f
。几乎所有其他内容都是不言自明的。 Eratosthenes 正常工作,如果第一个数字是“未标记”,它将其标记为“真”或“素数”,然后从列表的其余部分“划掉”它的所有倍数,然后对每个后续的“未标记”重复列表中的数字。我的 eratosthenes 函数基本上完成了您尝试对您的函数执行的操作。我不确定你的问题是什么,但通常来说,让助手让你的东西更具可读性是有帮助的。
我在 DrRacket 中使用 Neil Van Dyke 的 SICP 包完成了这项工作。我不知道你用的是什么方案。如果您在使用它时遇到问题,请告诉我。
关于recursion - 埃拉托色尼筛法,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/9919091/
关闭。这个问题不符合Stack Overflow guidelines .它目前不接受答案。 想改进这个问题?将问题更新为 on-topic对于堆栈溢出。 6年前关闭。 Improve this qu
我有实体: @Entity @Table(name = "CARDS") public class Card { @ManyToOne @JoinColumn(name = "PERSON_I
我正在尝试计算二维多边形的表面法线。我正在使用 OpenGL wiki 中的 Newell 方法来计算表面法线。 https://www.opengl.org/wiki/Calculating_a_S
关闭。这个问题不符合Stack Overflow guidelines .它目前不接受答案。 这个问题似乎与 help center 中定义的范围内的编程无关。 . 关闭 7 年前。 Improve
关闭。这个问题是off-topic .它目前不接受答案。 想改进这个问题吗? Update the question所以它是on-topic用于堆栈溢出。 关闭 9 年前。 Improve this
我这里有以下 XML: Visa, Mastercard, , , , 0, Discover, American Express siteonly, Buyer Pay
即将发生的 Google 政策变更迫使我们实现一个对话框,以通知欧盟用户有关 Cookie/设备标识符用于广告和分析的情况。我只想向欧盟用户显示此对话框。我不想使用额外的权限(例如 android.p
本文分享自华为云社区《华为大咖说 | 企业应用AI大模型的“道、法、术” ——道:认知篇》,作者:华为云PaaS服务小智。 本期核心观点 上车:AGI是未来5~10年内,每个人都无法回避的技
我有一个与酒精相关的网站,需要先验证年龄,然后才能让他们进入该网站。我使用 HttpModule 来执行此操作,该模块检查 cookie,如果未设置,我会将它们重定向到验证页面。我验证他们的年龄并存储
在欧盟,我们有一项法律,要求网页请求存储 cookie 的许可。我们大多数人都了解 cookie 并同意它们,但仍然被迫在任何地方明确接受它们。所以我计划编写这个附加组件(ff & chrome),它
以下在 C 和/或 C++ 中是否合法? void fn(); inline void fn() { /*Do something here*/ } 让我担心的是,第一个声明看起来暗示函数将被定义
我是一名优秀的程序员,十分优秀!