Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
aa9f2751
Commit
aa9f2751
authored
Jul 04, 2007
by
Jay Belanger
Browse files
(math-small-factorial-table): Replace list by vector.
parent
f50347a9
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
14 additions
and
13 deletions
+14
-13
lisp/ChangeLog
lisp/ChangeLog
+2
-0
lisp/calc/calc-comb.el
lisp/calc/calc-comb.el
+12
-13
No files found.
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
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment