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