13 lines
237 B
Plaintext
13 lines
237 B
Plaintext
(defn compose [f g]
|
|
(fn [x] (f (g x))))
|
|
(defn repeated [f n]
|
|
(defn iter [inner_f k]
|
|
(cond
|
|
(= k 1) inner_f
|
|
(iter (compose f inner_f) (- k 1))))
|
|
(iter f n))
|
|
|
|
(defn square [x] (* x x))
|
|
|
|
(print ((repeated square 2) 5))
|