diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2007-07-04 04:35:08 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2007-07-04 04:35:08 +0000 |
| commit | 481f50de4f83376216e60dc3b21dac14e95fd5a9 (patch) | |
| tree | 43ea1a8ba5c7b3e7a7ae4291347220857786313a /lisp/calc/calc-comb.el | |
| parent | fd524dccfdc36d7139a6cce2b089c33861aac7b6 (diff) | |
| download | emacs-481f50de4f83376216e60dc3b21dac14e95fd5a9.tar.gz | |
(math-small-factorial-table): Replace list by vector.
Diffstat (limited to 'lisp/calc/calc-comb.el')
| -rw-r--r-- | lisp/calc/calc-comb.el | 25 |
1 files changed, 12 insertions, 13 deletions
diff --git a/lisp/calc/calc-comb.el b/lisp/calc/calc-comb.el index 515995a2e74..7bda9972426 100644 --- a/lisp/calc/calc-comb.el +++ b/lisp/calc/calc-comb.el @@ -296,19 +296,18 @@ (defconst math-small-factorial-table (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")))) + (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) |