Re: bignum arithmetics

["Buechel Olivier" <Olivier.Buechel@unifr.ch>]

On Dec 2, 23:45, Keith Wright wrote:

> 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

guile> (fact 10000)
runs OK on a sparc with 128Mb,

guile> (fact 100000)
ERROR: In procedure * in expression (* k p):
ERROR: Memory allocation error
ABORT: (memory-allocation-error)

ends with a error-message as predicted.

> guile> (version)
> "1.3a"

guile> (version)
"1.3"

everything seem to be allright, specialy when an "a" in 1.3a means alpha?!

olivier.buechel@unifr.ch