対の無限のストリーム
ループを無限ストリームで表現できたりする。
二つのストリームから交互に値を取得する interleave
美しいですね
(define (interleave s1 s2) (if (stream-null? s1) s2 (cons-stream (stream-car s1) (interleave s2 (stream-cdr s1)))))
ループを無限ストリームで表現できたりする。
二つのストリームから交互に値を取得する interleave
美しいですね
(define (interleave s1 s2) (if (stream-null? s1) s2 (cons-stream (stream-car s1) (interleave s2 (stream-cdr s1)))))