SICP 問題 3.62

二つのべき級数を割る手続きdiv-stream

(define (div-stream s1 s2)
  (if (= s2 0)
      (error "ZERO-DIVISOR" s2)
      (mul-streams s1
                   (invert-unit-series s2))))