Programming-Idioms

Edit summary for version 42 by anon20171221:
[Clojure] formatting and docs

↷

2017-12-21, 03:00:11

2017-12-21, 03:16:17

Idiom #31 Recursive factorial (simple)

Create recursive function f which returns the factorial of non-negative integer i, calculated from f(i-1)

Create recursive function f which returns the factorial of non-negative integer i, calculated from f(i-1)

(defn f [i]
  (loop [i i acc 1N]
    (if (zero? i)
      acc
      (recur (dec i) (* i acc)))))

(defn f [i]
  (loop [cnt i, acc 1N]
    (if (zero? cnt)
      acc
      (recur (dec cnt) (* cnt acc)))))

This supports arbitrary-precision.
Replace 1N (clojure.lang.BigInt) with 1 (java.lang.Long) if you don't need to calculate anything above (f 20).

This supports arbitrary-precision and self tail call optimization.

https://clojuredocs.org/clojure.core/recur#example-542692d0c026201cdc326ea6

https://clojuredocs.org/clojure.core/recur#example-542692d0c026201cdc326ea6

https://repl.it/repls/SerpentineFunnyYnambu

https://ideone.com/wk8obN

Next change ↷