(define (show x) (display-line x) x) (define x (stream-map show (stream-enumerate-interval 0 10))) 0x (stream-ref x 5) 1 2 3 4 55 (stream-ref x 7) 6 77 memo-procのおかげで(stream-ref x 7)では(stream-ref x 5)の計算は行っていない． そのため6…

マクロを使ってる部分は ストリームの実装と問題3.50-3.51 - nrvctの日記 ここから引用． ;; 次の二つは引用元から ;; cons-streamは評価順序を変えたいのでマクロ (define-syntax cons-stream (syntax-rules () ((_ a b) (cons a (delay b))))) ;; delayも…