http://example.com
http://example.com
http://example.com
http://example.com
(define (eratosthenes n) | |
(define (sift list p) | |
(filter (lambda (n) | |
(not (zero? (modulo n p)))) | |
list)) | |
(define (iter nums primes) | |
(let ((p (car nums))) | |
(if (> (* p p) n) | |
(append (reverse primes) nums) | |
(iter (sift (cdr nums) p) (cons p primes))))) |