(define (reciprocal-series s)
(cons-stream 1 (scale-stream (mul-series (stream-cdr s)
(reciprocal-series s))
-1)))原文：http://blog.csdn.net/nomasp/article/details/44708461