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