9 lines
141 B
Scheme
9 lines
141 B
Scheme
#lang sicp
|
|
|
|
(define (smooth f)
|
|
(define dx 0.0001)
|
|
(lambda (x)
|
|
(/ (+ (f (- x dx))
|
|
(f x)
|
|
(f (+ x dx)))
|
|
3)))
|