From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: ludo@gnu.org (Ludovic =?iso-8859-1?Q?Court=E8s?=) Newsgroups: gmane.lisp.guile.user Subject: Re: Parameters Date: Mon, 04 Feb 2008 16:47:28 +0100 Message-ID: <87myqgu3jj.fsf@dellish.bordeaux.inria.fr> References: <87lk603k3u.fsf@moley.moleskin.org> <87myqgx0bo.fsf@dellish.bordeaux.inria.fr> <8763x43gow.fsf@moley.moleskin.org> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: ger.gmane.org 1202140059 3233 80.91.229.12 (4 Feb 2008 15:47:39 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Mon, 4 Feb 2008 15:47:39 +0000 (UTC) To: guile-user@gnu.org Original-X-From: guile-user-bounces+guile-user=m.gmane.org@gnu.org Mon Feb 04 16:48:01 2008 Return-path: Envelope-to: guile-user@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1JM3Y1-0001Cs-CN for guile-user@m.gmane.org; Mon, 04 Feb 2008 16:47:53 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1JM3XZ-0002D9-8z for guile-user@m.gmane.org; Mon, 04 Feb 2008 10:47:25 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1JM3VV-00016x-6i for guile-user@gnu.org; Mon, 04 Feb 2008 10:45:17 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1JM3VN-0000zG-Qb for guile-user@gnu.org; Mon, 04 Feb 2008 10:45:13 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1JM3VM-0000yi-Df for guile-user@gnu.org; Mon, 04 Feb 2008 10:45:08 -0500 Original-Received: from main.gmane.org ([80.91.229.2] helo=ciao.gmane.org) by monty-python.gnu.org with esmtps (TLS-1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1JM3VK-00045o-F0 for guile-user@gnu.org; Mon, 04 Feb 2008 10:45:08 -0500 Original-Received: from list by ciao.gmane.org with local (Exim 4.43) id 1JM3V4-00088N-WB for guile-user@gnu.org; Mon, 04 Feb 2008 15:44:51 +0000 Original-Received: from 193.50.110.98 ([193.50.110.98]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Mon, 04 Feb 2008 15:44:50 +0000 Original-Received: from ludo by 193.50.110.98 with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Mon, 04 Feb 2008 15:44:50 +0000 X-Injected-Via-Gmane: http://gmane.org/ Original-Lines: 48 Original-X-Complaints-To: usenet@ger.gmane.org X-Gmane-NNTP-Posting-Host: 193.50.110.98 X-Revolutionary-Date: 16 =?iso-8859-1?Q?Pluvi=F4se?= an 216 de la =?iso-8859-1?Q?R=E9volution?= X-PGP-Key-ID: 0xEB1F5364 X-PGP-Key: http://www.laas.fr/~lcourtes/ludovic.asc X-PGP-Fingerprint: 821D 815D 902A 7EAB 5CEE D120 7FBA 3D4F EB1F 5364 X-OS: i486-pc-linux-gnu User-Agent: Gnus/5.11 (Gnus v5.11) Emacs/22.1 (gnu/linux) Cancel-Lock: sha1:4wl8nQiLlmyMEMw3qKkQmsMz/Zo= X-detected-kernel: by monty-python.gnu.org: Linux 2.6, seldom 2.4 (older, 4) X-BeenThere: guile-user@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: General Guile related discussions List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: guile-user-bounces+guile-user=m.gmane.org@gnu.org Errors-To: guile-user-bounces+guile-user=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.user:6404 Archived-At: Hi, Sebastian Tennant writes: > Understood... up to a point. However, I don't understand why calling > the first procedure like this: > > (add '(1 2 3 4)) > > and calling the second procedure like this: > > (add 1 2 3 4) > > doesn't result in 'l' having the same value; '(1 2 3 4), in each case? L should have the same value in both cases, i.e., ((lambda l l) 1 2 3 4) => (1 2 3 4) ((lambda (l) l) '(1 2 3 4)) => (1 2 3 4) > Why does the second procedure fail regardless of how it is called? Ah, I hadn't noticed it: your second procedure should read "(apply add (cdr l))" instead of "(add (cdr l))". >> (define add >> (lambda (l) >> (let loop ((l l) >> (result 0)) >> (if (null? l) >> result >> (loop (cdr l) (+ result (car l))))))) > > Noted. Or, more elegantly: (use-modules (srfi srfi-1)) (define add (lambda (l) (fold + 0 l))) Cheers, Ludovic.