Subject: bug#13031: large numbers

From: Mark H Weaver <[email-masked]>
Date: Sat, 01 Dec 2012 00:22:41 -0500

Hi Jozef,

Jozef Chraplewski <[email-masked]> 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