(wat-aro)

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

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)))