diff options
| author | Mattias Engdegård <mattiase@acm.org> | 2020-09-11 13:02:59 +0200 |
|---|---|---|
| committer | Mattias Engdegård <mattiase@acm.org> | 2020-09-11 13:02:59 +0200 |
| commit | 891bbec2e09986f6ef562f2172cd349e9f55cbe8 (patch) | |
| tree | 621ac4c11fc00fbbd2d13f23600e18cb9708b687 /lisp/calc/calc-comb.el | |
| parent | b5fe4474804104f383b21b4dcb091d14adc9b610 (diff) | |
| download | emacs-891bbec2e09986f6ef562f2172cd349e9f55cbe8.tar.gz emacs-891bbec2e09986f6ef562f2172cd349e9f55cbe8.tar.bz2 emacs-891bbec2e09986f6ef562f2172cd349e9f55cbe8.zip | |
Simplify big integer constants in Calc
* lisp/calc/calc-comb.el (math-small-factorial-table):
* lisp/calc/calc-funcs.el (math-bernoulli-b-cache):
* lisp/calc/calc.el (math-2-word-size, math-half-2-word-size):
No need for math-read-number-simple.
Diffstat (limited to 'lisp/calc/calc-comb.el')
| -rw-r--r-- | lisp/calc/calc-comb.el | 12 |
1 files changed, 3 insertions, 9 deletions
diff --git a/lisp/calc/calc-comb.el b/lisp/calc/calc-comb.el index c5d4d0837e7..2efeb7f0f22 100644 --- a/lisp/calc/calc-comb.el +++ b/lisp/calc/calc-comb.el @@ -292,15 +292,9 @@ (defconst math-small-factorial-table (vector 1 1 2 6 24 120 720 5040 40320 362880 3628800 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"))) + 479001600 6227020800 87178291200 1307674368000 20922789888000 + 355687428096000 6402373705728000 121645100408832000 + 2432902008176640000)) (defun calcFunc-fact (n) ; [I I] [F F] [Public] (let (temp) |