問題3-55 (3.5.2 Infinite Streams)

今回は，与えられた無限ストリームの部分和を持った無限ストリームを返す関数 partial-sums を作成します．渡された無限ストリームが だったとき， 返す無限ストリーム の要素 は ということになります．

(define (partial-sums S)
  (stream-cons (stream-car S)
               (stream-map +
                           (partial-sums S)
                           (stream-cdr S))))