Michael Schimmel
9222fb5bc8
The benchmark results in several example files have been updated. This commit reflects slight variations in performance measurements for various test cases, including closure scope, data structures, destructuring, higher-order functions, macros, and tuple operations.
18 lines
420 B
Plaintext
18 lines
420 B
Plaintext
;; Takeuchi Function Benchmark
|
|
;; heavily recursive, benefits significantly from specialization of integer arithmetic
|
|
;; and direct function calls (skipping dynamic dispatch).
|
|
;; Output: 5
|
|
|
|
;; Benchmark: 471.9us
|
|
;; Benchmark-Repeat: 6
|
|
|
|
(do
|
|
(def tak (fn [x y z]
|
|
(if (<= x y)
|
|
z
|
|
(tak (tak (- x 1) y z)
|
|
(tak (- y 1) z x)
|
|
(tak (- z 1) x y)))))
|
|
|
|
(tak 12 8 4)
|
|
)
|