Sujet : Re: Simple recursive functions in Lisp
De : Nobody447095 (at) *nospam* here-nor-there.org (B. Pym)
Groupes : comp.lang.lispDate : 14. Jul 2024, 20:46:50
Autres entêtes
Organisation : A noiseless patient Spider
Message-ID : <v719v7$9kar$1@dont-email.me>
User-Agent : XanaNews/1.18.1.6
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