<< Previous exercise (3.60) | Index | Next exercise (3.62) >>
meteorgan
(define (reciprocal-series s) (cons-stream 1 (scale-stream (mul-series (stream-cdr s) (reciprocal-series s)) -1)))
meteorgan