11 lines
179 B
Scheme
11 lines
179 B
Scheme
#lang sicp
|
|
|
|
(define (identity x) x)
|
|
|
|
(define (compose f g)
|
|
(lambda (x) (f (g x))))
|
|
|
|
(define (repeated f n)
|
|
(if (= n 0)
|
|
identity
|
|
(compose f (repeated f (- n 1)))))
|