performance - 在普通 lisp 中计算阶乘的最快方法是什么？

Question

在 Common Lisp 中计算阶乘的最快方法是什么？首先是尾尾递归

(defun factorial (n &optional (acc 1))
(if (<= n 1)
   acc
   (factorial (- n 1) (* acc n))))

但这是最快的方法吗？

Answer 1

您已经实现了用于计算阶乘的朴素算法。有几个具有更好的渐近性能，例如参见 http://www.luschny.de/math/factorial/FastFactorialFunctions.htm

最快的是基于阶乘的质因数分解。