最初のページ 戻る 次へ 最後のページ

(sum? E)

'(+ u v w)は

(define (diff-sum x E)

 (make-sum

  (map (lambda (expr) (d x expr))

      (args E) )))

diff-sumを適用する

(diff-sum 'v '(+ u v w))