From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Mark H Weaver Newsgroups: gmane.lisp.guile.bugs Subject: bug#13031: large numbers Date: Sat, 01 Dec 2012 00:22:41 -0500 Message-ID: <87obieuz1a.fsf@tines.lan> References: <7B53D3D8-EDFE-47B5-93C1-FD52B21A3F39@applicake.com> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: ger.gmane.org 1354339438 28201 80.91.229.3 (1 Dec 2012 05:23:58 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Sat, 1 Dec 2012 05:23:58 +0000 (UTC) Cc: 13031@debbugs.gnu.org To: Jozef Chraplewski Original-X-From: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Sat Dec 01 06:24:09 2012 Return-path: Envelope-to: guile-bugs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1TefYe-0000hG-P1 for guile-bugs@m.gmane.org; Sat, 01 Dec 2012 06:24:08 +0100 Original-Received: from localhost ([::1]:38294 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TefYT-0005M9-1v for guile-bugs@m.gmane.org; Sat, 01 Dec 2012 00:23:57 -0500 Original-Received: from eggs.gnu.org ([208.118.235.92]:43601) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TefYQ-0005Ls-6V for bug-guile@gnu.org; Sat, 01 Dec 2012 00:23:55 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1TefYP-0003BP-8C for bug-guile@gnu.org; Sat, 01 Dec 2012 00:23:54 -0500 Original-Received: from debbugs.gnu.org ([140.186.70.43]:37546) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TefYP-0003BL-4r for bug-guile@gnu.org; Sat, 01 Dec 2012 00:23:53 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.72) (envelope-from ) id 1TefaU-0005GX-3i for bug-guile@gnu.org; Sat, 01 Dec 2012 00:26:02 -0500 X-Loop: help-debbugs@gnu.org Resent-From: Mark H Weaver Original-Sender: debbugs-submit-bounces@debbugs.gnu.org Resent-CC: bug-guile@gnu.org Resent-Date: Sat, 01 Dec 2012 05:26:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 13031 X-GNU-PR-Package: guile X-GNU-PR-Keywords: Original-Received: via spool by 13031-submit@debbugs.gnu.org id=B13031.135433950720170 (code B ref 13031); Sat, 01 Dec 2012 05:26:02 +0000 Original-Received: (at 13031) by debbugs.gnu.org; 1 Dec 2012 05:25:07 +0000 Original-Received: from localhost ([127.0.0.1]:47797 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1TefZb-0005FG-1b for submit@debbugs.gnu.org; Sat, 01 Dec 2012 00:25:07 -0500 Original-Received: from world.peace.net ([96.39.62.75]:60290) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1TefZZ-0005F9-7k for 13031@debbugs.gnu.org; Sat, 01 Dec 2012 00:25:06 -0500 Original-Received: from 209-6-91-212.c3-0.smr-ubr1.sbo-smr.ma.cable.rcn.com ([209.6.91.212] helo=tines.lan) by world.peace.net with esmtpsa (TLS1.0:DHE_RSA_AES_128_CBC_SHA1:16) (Exim 4.72) (envelope-from ) id 1TefXN-0006TL-Ek; Sat, 01 Dec 2012 00:22:49 -0500 In-Reply-To: <7B53D3D8-EDFE-47B5-93C1-FD52B21A3F39@applicake.com> (Jozef Chraplewski's message of "Thu, 29 Nov 2012 09:42:09 +0100") User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.2 (gnu/linux) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.13 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-Received-From: 140.186.70.43 X-BeenThere: bug-guile@gnu.org List-Id: "Bug reports for GUILE, GNU's Ubiquitous Extension Language" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Original-Sender: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.bugs:6629 Archived-At: Hi Jozef, Jozef Chraplewski 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