2010-12-17から1日間の記事一覧
(define (generator$ iterator$) (let ((cont-storage #f)) (define (make-next cont) (lambda () (let/cc return (step cont return)))) (define (step cont return) (set! cont-storage (lambda (x cont*) (return x (make-next cont*)))) (cont)) (make-n…