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: 314.2us
|
|
;; Benchmark-Repeat: 8
|
|
|
|
(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)
|
|
)
|