Commit 206be3d9 authored by Jay Belanger's avatar Jay Belanger
Browse files

(math-small-factorial-table): Eval when compile.

parent cebd3c8a
......@@ -295,18 +295,20 @@
;;; Factorial and related functions.
(defconst math-small-factorial-table
(vector 1 1 2 6 24 120 720 5040 40320 362880
(math-read-number-simple "3628800")
(math-read-number-simple "39916800")
(math-read-number-simple "479001600")
(math-read-number-simple "6227020800")
(math-read-number-simple "87178291200")
(math-read-number-simple "1307674368000")
(math-read-number-simple "20922789888000")
(math-read-number-simple "355687428096000")
(math-read-number-simple "6402373705728000")
(math-read-number-simple "121645100408832000")
(math-read-number-simple "2432902008176640000")))
(eval-when-compile
(list
'vector 1 1 2 6 24 120 720 5040 40320 362880
(math-read-number-simple "3628800")
(math-read-number-simple "39916800")
(math-read-number-simple "479001600")
(math-read-number-simple "6227020800")
(math-read-number-simple "87178291200")
(math-read-number-simple "1307674368000")
(math-read-number-simple "20922789888000")
(math-read-number-simple "355687428096000")
(math-read-number-simple "6402373705728000")
(math-read-number-simple "121645100408832000")
(math-read-number-simple "2432902008176640000"))))
(defun calcFunc-fact (n) ; [I I] [F F] [Public]
(let (temp)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment