(define (smooth f)
(lambda (x)
(/ (+ (f (- x 0.001))
(f x)
(f (+ x 0.001)))
3)))
(define (n-fold-smooth f n)
((repeated smooth n) f))
(define (smooth f)
(lambda (x)
(/ (+ (f (- x 0.001))
(f x)
(f (+ x 0.001)))
3)))
(define (n-fold-smooth f n)
((repeated smooth n) f))
SICP exercises 