[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#13031: large numbers
From: |
Mark H Weaver |
Subject: |
bug#13031: large numbers |
Date: |
Sat, 01 Dec 2012 00:22:41 -0500 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/24.2 (gnu/linux) |
Hi Jozef,
Jozef Chraplewski <address@hidden> 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 "address@hidden address@hidden address@hidden" n (last10
term) (last10 sum))
(loop (+ n 1) sum)))))
Thanks,
Mark
- bug#13031: large numbers,
Mark H Weaver <=