SICP Exercise 3.55

Exercise 3.55

从上图中可以看到，partial-sums的第i个元素等于其第(i-1)个元素加上stream的第i个元素。所以代码如下：

(define (partial-sums s)
  (cons-stream (stream-car s)
               (add-streams (partial-sums s)
                            (stream-cdr s))))

但是，上面的代码在s是有限的流之后，就会报错，这是由于（partial-sums s）和（stream-cdr s）的元素个数不相等。为了解决s是有限流的问题，需要查看一下add-streams过程的实现：

(define (add-streams s1 s2)
  (stream-map + s1 s2))

而这又涉及到stream-map过程（参见Exercise 3.50），在观察该过程的实现后，写出来不管s是有限的还是无限的，都正确的代码：

(define (partial-sums s)
  (cons-stream (stream-car s)
               (add-streams (stream-cdr s)
                            (partial-sums s))))

其实，通过对比发现，只是交换了（partial-sums s）和（stream-cdr s）的顺序而已。