我一直在网上搜索埃拉托色尼筛法的实施方案,虽然我想出了很多内容,但似乎没有一个能像我需要的那样完成。
问题是大多数算法要么使用静态结束,要么使用迭代。这与我缺乏语言知识相结合,导致我向你们所有人寻求帮助。
我需要一个 Sieve 的实现,它接受一个参数(直到 Sieve 的数字),只使用递归,并且有一个带有#t
(真)或#f
(假)的数字的“缺点”列表。
所以基本上算法会这样:
- 从 2 个输入的数字创建列表,每个数字都以 true 开头
- 递归遍历并标记每个可被 2 整除的数字 false
- 然后继续到列表中的下一个“真”数字,直到只有素数被标记为真
- 输出列表
示例输出:
> (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))))))
正如函数名称所暗示的那样,我要做的是,为列表中仍然标记为真的每个数字调用 mark-off-multiples。所以你传入,((3.#t)(4.#t)(5.#t))
然后它调用mark-off-multiples
2 并返回(3.#t)(4.#f)(5.#t)
并附(2.#t)
加到它。然后它再次调用自己传入(3.#t)(4.#f)(5.#t)
并调用 mark-off-multiples 并返回列表的cdr(4.#f)(5.#t)
并继续沿着列表向下...
然后我返回的输出是一个包含所有真值的列表。
这一点,希望能帮助你更好地理解我的困境。