SICP

SICP を読んでみる #67 第二章 pp.108-109

コードの入力と内容の確認がおわったので問題に戻ります。

問題解答

問2.73
b.
和の微分は (u+v)’ = u’+v’
積の微分は (uv)’ = uv’+u’v

(define (deriv-package)
  (define (deriv-sum exp var)
    (make-sum (deriv (addend exp) var)
              (deriv (augend exp) var)))

  (define (deriv-product exp var)
    (make-sum
     (make-product (multiplier exp)
                   (deriv  (multiplicand exp) var))
     (make-product (deriv (multiplier exp) var)
                   (multiplicand exp))))

  (put 'deriv '+ deriv-sum)
  (put 'deriv '* deriv-product))

こんな感じ? put/get がないのでちゃんと動作確認ができない。
ちょっと(かなり)手抜きで、答えを見ながら完全に動作するコードをコピペして動作を確認。

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です