From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: ludo@gnu.org (Ludovic =?UTF-8?Q?Court=C3=A8s?=) Newsgroups: gmane.lisp.guile.bugs Subject: bug#13031: large numbers Date: Thu, 29 Nov 2012 23:11:29 +0100 Message-ID: <87pq2w2h66.fsf@gnu.org> References: <7B53D3D8-EDFE-47B5-93C1-FD52B21A3F39@applicake.com> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-Trace: ger.gmane.org 1354227126 27567 80.91.229.3 (29 Nov 2012 22:12:06 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Thu, 29 Nov 2012 22:12:06 +0000 (UTC) Cc: 13031@debbugs.gnu.org To: Jozef Chraplewski Original-X-From: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Thu Nov 29 23:12:18 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 1TeCL9-0003pP-Iu for guile-bugs@m.gmane.org; Thu, 29 Nov 2012 23:12:15 +0100 Original-Received: from localhost ([::1]:38103 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TeCKy-0001Ap-1k for guile-bugs@m.gmane.org; Thu, 29 Nov 2012 17:12:04 -0500 Original-Received: from eggs.gnu.org ([208.118.235.92]:58896) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TeCKw-0001Aj-1t for bug-guile@gnu.org; Thu, 29 Nov 2012 17:12:02 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1TeCKu-0006Ev-Kq for bug-guile@gnu.org; Thu, 29 Nov 2012 17:12:01 -0500 Original-Received: from debbugs.gnu.org ([140.186.70.43]:35424) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TeCKu-0006Ep-H9 for bug-guile@gnu.org; Thu, 29 Nov 2012 17:12:00 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.72) (envelope-from ) id 1TeCMr-0004Y6-Vn for bug-guile@gnu.org; Thu, 29 Nov 2012 17:14:02 -0500 X-Loop: help-debbugs@gnu.org Resent-From: ludo@gnu.org (Ludovic =?UTF-8?Q?Court=C3=A8s?=) Original-Sender: debbugs-submit-bounces@debbugs.gnu.org Resent-CC: bug-guile@gnu.org Resent-Date: Thu, 29 Nov 2012 22:14:01 +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.135422721717447 (code B ref 13031); Thu, 29 Nov 2012 22:14:01 +0000 Original-Received: (at 13031) by debbugs.gnu.org; 29 Nov 2012 22:13:37 +0000 Original-Received: from localhost ([127.0.0.1]:45675 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1TeCMT-0004XK-0M for submit@debbugs.gnu.org; Thu, 29 Nov 2012 17:13:37 -0500 Original-Received: from xanadu.aquilenet.fr ([88.191.123.111]:48442) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1TeCMQ-0004XB-CP for 13031@debbugs.gnu.org; Thu, 29 Nov 2012 17:13:35 -0500 Original-Received: from localhost (localhost [127.0.0.1]) by xanadu.aquilenet.fr (Postfix) with ESMTP id B40EFA493; Thu, 29 Nov 2012 23:11:29 +0100 (CET) Original-Received: from xanadu.aquilenet.fr ([127.0.0.1]) by localhost (xanadu.aquilenet.fr [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id Uc2JJzQv+84M; Thu, 29 Nov 2012 23:11:29 +0100 (CET) Original-Received: from pluto (reverse-83.fdn.fr [80.67.176.83]) by xanadu.aquilenet.fr (Postfix) with ESMTPSA id 383CEA42B; Thu, 29 Nov 2012 23:11:29 +0100 (CET) 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.130005 (Ma Gnus v0.5) 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:6623 Archived-At: Hi, Jozef Chraplewski skribis: > The solution is trivial: > > (define (problem-48 limit) > (define (F) > (let loop ((n 1) > (sum 0)) > (if (<=3D n limit) > (loop (+ n 1) (+ sum (expt n n))) > sum))) > > (let* ((str (number->string (F))) > (len (string-length str))) > (substring str (- len 10) len))) > > (display (problem-48 1000)) > (newline) > > > The proper answer is 9110846700 but guile returns 6457854188 I also get 9110846700 with 2.0.6+ and 1.8.8+. What version do you use? (Bigloo 3.2a returns 5842605292, though.) Ludo=E2=80=99.