10 lines
253 B
Scheme
10 lines
253 B
Scheme
|
(load "goof.scm")
|
||
|
|
|
||
|
|
(define (erathostenes n)
|
||
|
|
(define vec (make-vector n #t))
|
||
|
|
(loop/list ((:for i (up-from 2 (to n)))
|
||
|
|
(:when (vector-ref vec i)))
|
||
|
|
(loop ((:for j (up-from (* 2 i) (to n) (by i))))
|
||
|
|
(vector-set! vec j #f))
|
||
|
|
i))
|