sicp-ex-3.55



<< Previous exercise (3.54) | Index | Next exercise (3.56) >>


meteorgan



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