==> (define (deriv f dx)
(lambda (x)
(/ (- (f (+ x dx)) (f x))
dx)))
DERIV
==> ((deriv cube 0.01) 5)
75.15106
==> ((deriv cube 0.001) 5)
75.01221
==> (* 3 (square 5))
75
==> ((deriv (lambda (x) (* 2 x)) 0.001) 5)
1.9998549
derivに任意の関数を与えるとその微分関数をもとめ，
それを関数として微分値を得ることができます．