Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (define a-stream
- (letrec ((next
- (lambda (n)
- (cons n (delay (next (+ n 1)))))))
- (next 0)))
- (define head car)
- (define tail
- (lambda (stream) (force (cdr stream))))
- (head (tail (tail a-stream)))
Add Comment
Please, Sign In to add comment