Software Design for Flexibility Ch. 2.1.1

chapter2.scm

(define (identity x) x)

(define (compose f g)
  (define (the-composition . args)
    (f (apply g args)))
  the-composition)

(define ((iterate n) f)
  (if (= n 0)
      identity
      (compose f ((iterate (- n 1)) f))))

(define (square n) (* n n))

(((iterate 3) square) 5)