>>151
過去スレより微分
(define (deriv f)
(if (null? f) '()
(map + (cdr f) (cons 0 (deriv (cdr f))))))

(deriv '(1 2 3))
(2 6)