mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(math-small-factorial-table,math-init-random-base,math-prime-test):

Browse source 
Remove unnecessary calls to `math-read-number-simple'.
This commit is contained in:
Jay Belanger 2007-07-07 23:56:56 +00:00
parent aefad52dcd
commit 4b4b19bdd5
1 changed files with 7 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

30
lisp/calc/calc-comb.el
View file

@ -296,9 +296,7 @@
(defconst math-small-factorial-table
(eval-when-compile
(vector 1 1 2 6 24 120 720 5040 40320 362880
(math-read-number-simple "3628800")
(math-read-number-simple "39916800")
(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")
@ -559,15 +557,9 @@
nil
(if (Math-integerp var-RandSeed)
(let* ((seed (math-sub 161803 var-RandSeed))
(mj (1+ (math-mod seed
(eval-when-compile
(math-read-number-simple "1000000")))))
(mk (1+ (math-mod (math-quotient
seed
(eval-when-compile
(math-read-number-simple "1000000")))
(eval-when-compile
(math-read-number-simple "1000000")))))
(mj (1+ (math-mod seed 1000000)))
(mk (1+ (math-mod (math-quotient seed 1000000)
1000000)))
(i 0))
(setq math-random-table (cons 'vec (make-list 55 mj)))
(while (<= (setq i (1+ i)) 54)
@ -817,9 +809,7 @@
(error "Argument must be an integer"))
((Math-integer-negp n)
'(nil))
((Math-natnum-lessp n
(eval-when-compile
(math-read-number-simple "8000000")))
((Math-natnum-lessp n 8000000)
(setq n (math-fixnum n))
(let ((i -1) v)
(while (and (> (% n (setq v (aref math-primes-table
@ -838,17 +828,11 @@
(+
sum
(calcFunc-mod
q
(eval-when-compile
(math-read-number-simple
"1000000"))))
q 1000000))
111111))
(setq q
(math-quotient
q
(eval-when-compile
(math-read-number-simple
"1000000")))))
q 1000000)))
(cond ((= (% sum 3) 0) '(nil 3))
((= (% sum 7) 0) '(nil 7))
((= (% sum 11) 0) '(nil 11))