This is the mail archive of the guile@cygnus.com mailing list for the guile project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]

Re: bignum arithmetics


*-Keith Wright <kwright@tiac.net>
|
| Did you try it?  I used the following program.
| (define (fact n)
|   (let mul ((k 1)(p 1))
|     (if (> k n) p (mul (+ k 1)(* k p)))))
| after testing with (fact 4) and (fact 5), I tried
| (fact 10000) and got something ending in
| 000000000000000000000000000000000000000004617333575079170156

FWIW; elk seems to get it right, with heaps of 0's in the end.

-- 
The only way tcsh "rocks" is when the rocks are attached to its feet
in the deepest part of a very deep lake.             (Linus Torvalds)
olet@ifi.uio.no   [-: .elOle. :-]   olet@debian.org