今回は,与えられた無限ストリームの部分和を持った無限ストリームを返す関数 partial-sums を作成します.渡された無限ストリームが だったとき, 返す無限ストリーム の要素 は ということになります.
(define (partial-sums S) (stream-cons (stream-car S) (stream-map + (partial-sums S) (stream-cdr S))))
今回は,与えられた無限ストリームの部分和を持った無限ストリームを返す関数 partial-sums を作成します.渡された無限ストリームが だったとき, 返す無限ストリーム の要素 は ということになります.
(define (partial-sums S) (stream-cons (stream-car S) (stream-map + (partial-sums S) (stream-cdr S))))