(define (map f lst) (if (empty? lst) empty (cons (f (head lst)) (map f (tail lst)))))
(define (deriv f dx) (lambda (x) (/ (- (f (+ x dx)) (f x)) dx)))
Deriv-list should also take two arguments: the list and the accuracy.
(define (accumulate base combiner lst) (if (empty? lst) base (combiner (head lst) (accumulate base combiner (tail lst)))))
Rewrite the map procedure in terms of accumulate (i.e., define
the map procedure using accumulate).