Hi Jozef,
Jozef Chraplewski <[email protected]> writes:
> It looks that guile returns incorrect results when it works with really big
> numbers.
Please disregard my earlier request. Can you please run the following
code and send us the output?
(let ((modulus (expt 10 10)))
(define (last10 n) (modulo n modulus))
(let loop ((n 1) (sum 0))
(if (> n 1000)
(last10 sum)
(let* ((term (expt n n))
(sum (+ sum term)))
(format #t "~4@a ~10@a ~10@a~%" n (last10 term) (last10 sum))
(loop (+ n 1) sum)))))
Thanks,
Mark
