(define (deriv f)
(if (or (null? f) (null? (cdr f))) '()
(map + (cdr f) (cons 0 (deriv (cdr f))))))

(map + '() (cons 0 '()))
ができんよな。うちのは()を返すけど。

過去スレPart5の786あたりから。別のやり方だけど。