(wat-aro)

無職から有職者にランクアップしました

SICP 問題 3.61

べき級数Sの逆数を求める手続きinvert-unit-seriesを定義する.
問題文の通りですね.

(define (invert-unit-series stream)
  (cons-stream 1
               (mul-series (scale-stream (stream-cdr s1) -1)
                           (invert-unit-series stream))))