Mercurial > emacs

changeset 81698:2fe3866c3de0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(math-small-factorial-table): Replace list by vector.
author Jay Belanger <jay.p.belanger@gmail.com>
date Wed, 04 Jul 2007 04:35:08 +0000
parents efedc1f1fb08
children 4e032ef87a13
files lisp/calc/calc-comb.el
diffstat 1 files changed, 12 insertions(+), 13 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calc/calc-comb.el	Wed Jul 04 04:20:35 2007 +0000
+++ b/lisp/calc/calc-comb.el	Wed Jul 04 04:35:08 2007 +0000
@@ -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)