sicp-ex-3.61



<< 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)))