SICP 問題 3.59
;; a ;; 引数としてべき級数を表現するストリームをとり,級数の積分の定数項を除いた項の係数のストリーム (define (integrate-series stream) (stream-map / stream integers)) ;; b (define exp-series (cons-stream 1 (integrate-series exp-series))) ;; 余弦の微分は正弦なので ;; cos xの微分は-sin x (define cosine-series (cons-stream 0 (stream-map - (integrate-series sine-series)))) ;; 正弦の微分は余弦 ;; sin xの微分は cos x (define sine-series (cons-stream 1 (integrate-series cosine-series)))