sicp-ex-3.59



<< Previous exercise (3.58) | Index | Next exercise (3.60) >>


meteorgan



a)
(define (integrate-series s)
              (stream-map * (stream-map / ones integers) s))
b)
(define sine-series (cons-stream 0 (integrate-series cosine-series)))
(define cosine-series (cons-stream 1 (integrate-series (scale-stream sine-series -1))))