[archives] [homepage]

Problem 1.44
Friday, August 23, 2019; ago; Download .md

SICP Exercise 1.44

(define (smooth f)
  (lambda (x)
    (/ (+ (f (- x dx))
          (f x)
          (f (+ x dx)))
       3)))

(define (n-fold f n)
  ((repeat smooth n) f))