14 lines
235 B
Plaintext
14 lines
235 B
Plaintext
;; Benchmark: 55ns
|
|
;; Benchmark-Repeat: 36353
|
|
;; Output: 13
|
|
(do
|
|
(macro wrap [f] `(fn [x] (~f x)))
|
|
|
|
(def add1 (fn [x] (+ x 1)))
|
|
(def add2 (fn [x] (+ x 2)))
|
|
|
|
(def w1 (wrap add1))
|
|
(def w2 (wrap add2))
|
|
|
|
(w1 (w2 10)))
|