emacs - elisp 阶乘计算给出错误结果

Question

如果我在 emacs-lisp 中编写这个函数:

(defun factorial (n)
  (if (<= n 1)
      1
      (* n (factorial (- n 1)))))
      => factorial

它适用于像 5 或 10 这样的小数字，但如果我尝试计算(阶乘 33)，答案是 -1211487723752259584，这显然是错误的，所有大数字都会破坏该函数。在Python中这不会发生。是什么导致了这个问题？

Answer 1

在处理大数时，您始终可以调用 Emacs 的 calc 库。

(defun factorial (n)
  (string-to-number (factorial--1 n)))

(defun factorial--1 (n)
  (if (<= n 1)
      "1"
    (calc-eval (format "%s * %s"
                       (number-to-string n)
                       (factorial--1 (- n 1))))))


ELISP> (factorial 33)  
8.683317618811886e+036

进一步阅读:

• http://www.masteringemacs.org/articles/2012/04/25/fun-emacs-calc/
• C-hig (计算) RET
• C-hig (calc) 从程序中调用 Calc RET