2009-09-22 3.61 sicp 定義と恒等式に従って書くだけ。 (load "./chapter3.scm") (load "./ex360.scm") (define (invert-unit-series s) (cons-stream 1 (mul-series (scale-stream (stream-cdr s) -1) (invert-unit-series s))))