연습문제 1.44

smooth는 해당하는 함수 f의 인자를 각각 x-dx, x, x+dx를 넣고 이 결과값을 3으로 나눈 값을 돌려줄 수 있으면 된다.

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

이제 n-fold-smooth는 repeated를 이용해서 smooth를 n번 반복하면 되므로

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

같이 정의할 수 있다.