[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Parameters
|
From: |
Sebastian Tennant |
|
Subject: |
Re: Parameters |
|
Date: |
Mon, 04 Feb 2008 19:22:44 +0200 |
|
User-agent: |
Gnus/5.110007 (No Gnus v0.7) Emacs/22.1 (gnu/linux) |
Quoth address@hidden (Ludovic Courtès):
>>> (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)))
Wow! More elegantly indeed!
Many thanks Ludovic.