Skip to content

GitLab

Commit aa9f2751 authored by Jay Belanger's avatar Jay Belanger
Browse files

(math-small-factorial-table): Replace list by vector.

parent f50347a9
Hide whitespace changes
Inline Side-by-side
Showing with 14 additions and 13 deletions
lisp/ChangeLog
View file @ aa9f2751
......@@ -8,6 +8,8 @@
compute "^".
(calculator-mode): Mention that results which are too large
will return inf.
* calc/calc-comb.el (math-small-factorial-table): Replace list
by vector.
2007-07-03 David Kastrup <dak@gnu.org>
......
lisp/calc/calc-comb.el
View file @ aa9f2751
......@@ -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)
......
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