(define (diff-sum x E)
(make-sum
(map (lambda (expr) (d x expr))
(args E) )))
適用する関数dをラムダ関数で記述
map関数:
式E中の+以外の部分について関数dを適用
make-sum:
全体を加算式としてまとめる