Ricorsione della coda in clojure

Question

Questo è un codice Lisp che utilizza la ricorsione della coda.

(defun factorial (f n) 
    (if (= n 1) 
     f 
     (factorial (* f n) (- n 1)))) 

Traduco questo codice in clojure in attesa della stessa ottimizzazione della ricorsione in coda.

(defn fact [f n] 
    (if (= n 1) 
     f 
     (fact (* f n) (dec n)))) 

Comunque ho ottenuto questo integer overflow (non impilare overflow), anche con il piccolo numero, ad esempio (fact 1 30).

ArithmeticException integer overflow clojure.lang.Numbers.throwIntOverflow (Numbers.java:1374) 

ho provato con recur, ma ho ottenuto lo stesso errore.

(defn factorial [f n] 
    (if (= n 1) 
     f 
     (recur (* f n) (dec n)))) 

Cosa c'è di sbagliato con il codice clojure?

Answer 1

Niente, basta usare BigInt s:

(factorial 1N 30N) ;=> 265252859812191058636308480000000N 

Gli argomenti possono essere piccole, ma il risultato non è!

noti che spuntato versioni degli operatori aritmetici sono anche disponibili, che supportano precisione arbitraria:

(reduce *' (range 1 31)) ;=> 265252859812191058636308480000000N