Michael Schimmel
096f166153
These changes update the benchmark numbers and repeat counts in the example files. The benchmark results have slightly varied, and these updates reflect the most recent measurements.
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: 423.0us
|
|
;; 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)
|
|
)
|