SICP memo: stream.scm

3.5節で使う stream 関数（Gauche で動作確認済。ここでは Gauche の delay/force 実装を使わない） delay の定義を memo化しないものに入れ替えた stream-nomemo.scm を用意しておくと後々便利。 (define-macro (delay x) `(memo-proc (lambda () ,x))) ; memoizeあり ※stream-nomemo.scmではOFF ;(define-macro (delay x) `(lambda () ,x)) ; memoizeなし ※stream-nomemo.scmではON (define (force x) (x)) (define-macro (cons-stream a b) `(cons ,a (delay ,b))) (define (stream-car stream) (

[smocchan]

Gauche用stream

[rsakamot]

Gauche用stream