Quoth [EMAIL PROTECTED] (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.
