Mercurial > emacs
comparison lisp/calc/calc-comb.el @ 81698:2fe3866c3de0
(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 (2007-07-04) |
parents | 5f2dd5474f8a |
children | 66a18d2f078a |
comparison
equal
deleted
inserted
replaced
81697:efedc1f1fb08 | 81698:2fe3866c3de0 |
---|---|
294 | 294 |
295 ;;; Factorial and related functions. | 295 ;;; Factorial and related functions. |
296 | 296 |
297 (defconst math-small-factorial-table | 297 (defconst math-small-factorial-table |
298 (eval-when-compile | 298 (eval-when-compile |
299 (list | 299 (vector 1 1 2 6 24 120 720 5040 40320 362880 |
300 'vector 1 1 2 6 24 120 720 5040 40320 362880 | 300 (math-read-number-simple "3628800") |
301 (math-read-number-simple "3628800") | 301 (math-read-number-simple "39916800") |
302 (math-read-number-simple "39916800") | 302 (math-read-number-simple "479001600") |
303 (math-read-number-simple "479001600") | 303 (math-read-number-simple "6227020800") |
304 (math-read-number-simple "6227020800") | 304 (math-read-number-simple "87178291200") |
305 (math-read-number-simple "87178291200") | 305 (math-read-number-simple "1307674368000") |
306 (math-read-number-simple "1307674368000") | 306 (math-read-number-simple "20922789888000") |
307 (math-read-number-simple "20922789888000") | 307 (math-read-number-simple "355687428096000") |
308 (math-read-number-simple "355687428096000") | 308 (math-read-number-simple "6402373705728000") |
309 (math-read-number-simple "6402373705728000") | 309 (math-read-number-simple "121645100408832000") |
310 (math-read-number-simple "121645100408832000") | 310 (math-read-number-simple "2432902008176640000")))) |
311 (math-read-number-simple "2432902008176640000")))) | |
312 | 311 |
313 (defun calcFunc-fact (n) ; [I I] [F F] [Public] | 312 (defun calcFunc-fact (n) ; [I I] [F F] [Public] |
314 (let (temp) | 313 (let (temp) |
315 (cond ((Math-integer-negp n) | 314 (cond ((Math-integer-negp n) |
316 (if calc-infinite-mode | 315 (if calc-infinite-mode |