Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
14 lines (10 sloc) 185 Bytes
(define dx 0.00001)
(define (smooth f)
(lambda (x)
(/
(+ (f x)
(f (- x dx))
(f (+ x dx)))
3)))
(define (n-smooth f n)
((repeated smooth n) f))