11 lines
185 B
Plaintext
11 lines
185 B
Plaintext
;; Benchmark: 1.2us
|
|
;; Benchmark-Repeat: 1658
|
|
;; Output: 120
|
|
(do
|
|
(def factorial (fn [n acc]
|
|
(if (= n 0)
|
|
acc
|
|
(again (- n 1) (* acc n)))))
|
|
|
|
(factorial 5 1))
|