Path: ...!news.mixmin.net!eternal-september.org!feeder3.eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: "B. Pym" <Nobody447095@here-nor-there.org>
Newsgroups: comp.lang.lisp
Subject: Re: Simple recursive functions in Lisp
Date: Sun, 14 Jul 2024 19:46:50 -0000 (UTC)
Organization: A noiseless patient Spider
Lines: 12
Message-ID: <v719v7$9kar$1@dont-email.me>
MIME-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Injection-Date: Sun, 14 Jul 2024 21:46:50 +0200 (CEST)
Injection-Info: dont-email.me; posting-host="78677f07eb040e8118f6c654ec373cab";
	logging-data="315739"; mail-complaints-to="abuse@eternal-september.org";	posting-account="U2FsdGVkX1/a4zVOlDcb5HCdlaVnKGmU"
User-Agent: XanaNews/1.18.1.6
Cancel-Lock: sha1:+anjwK6jAsQe1hP7uHDm5OUPJwI=
Bytes: 1023

Pascal Bourguignon wrote:

> (defun sum (list)
>   (loop :for x :in list :sum x))

Gauche Scheme

(define (sum lst)   (fold + 0 lst))

(sum '(1 3 5 7 9))
  ===>
25