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