Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (define (integers-starting-from n)
- (cons-stream n (integers-starting-from (+ n 1))))
- (define (stream-filter pred stream)
- (cond ((stream-null? stream) the-empty-stream)
- ((pred (stream-car stream))
- (cons-stream (stream-car stream)
- (stream-filter pred
- (stream-cdr stream))))
- (else (stream-filter pred (stream-cdr stream)))))
- (define (sieve stream)
- (cons-stream
- (stream-car stream)
- (sieve (stream-filter
- (lambda (x)
- (not (divisible? x (stream-car stream))))
- (stream-cdr stream)))))
- (define primes (sieve (integers-starting-from 2)))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement