Michael Schimmel
11 lines
184 B
Plaintext
11 lines
184 B
Plaintext
;; Benchmark: 2.5us
|
|
;; Benchmark-Repeat: 804
|
|
;; Output: 120
|
|
(do
|
|
(def factorial (fn [n acc]
|
|
(if (= n 0)
|
|
acc
|
|
(again [(- n 1) (* acc n)]))))
|
|
|
|
(factorial 5 1))
|