7 lines
120 B
Scheme
7 lines
120 B
Scheme
(load "1_42.sch") ; for compose
|
|
|
|
(define (repeated f n)
|
|
(if (= n 1)
|
|
f
|
|
(compose f (repeated f (- n 1)))))
|