6 lines
102 B
Plaintext
6 lines
102 B
Plaintext
(defn compose [f g]
|
|
(fn [x] (f (g x))))
|
|
|
|
(defn square [x] (* x x))
|
|
|
|
(print ((compose square inc) 6)) |