二つのべき級数を割る手続きdiv-stream (define (div-stream s1 s2) (if (= s2 0) (error "ZERO-DIVISOR" s2) (mul-streams s1 (invert-unit-series s2))))

べき級数Sの逆数を求める手続きinvert-unit-seriesを定義する． 問題文の通りですね． (define (invert-unit-series stream) (cons-stream 1 (mul-series (scale-stream (stream-cdr s1) -1) (invert-unit-series stream))))

(define (stream-head s n) (let iter ((s s) (n n)) (if (zero? n) 'done (begin (display (stream-car s)) (display " ") (iter (stream-cdr s) (- n 1)))))) (define (mul-series s1 s2) (cons-stream (* (stream-car s1) (stream-car s2)) (add-streams …

;; a ;; 引数としてべき級数を表現するストリームをとり，級数の積分の定数項を除いた項の係数のストリーム (define (integrate-series stream) (stream-map / stream integers)) ;; b (define exp-series (cons-stream 1 (integrate-series exp-series))) ;…