Sujet : Re: "Well, I want to switch over to replace EMACS LISP with Guile."
De : Nobody447095 (at) *nospam* here-nor-there.org (B. Pym)
Groupes : comp.lang.lisp comp.lang.schemeDate : 08. Jul 2025, 14:57:53
Autres entêtes
Organisation : A noiseless patient Spider
Message-ID : <104j850$3jk8g$1@dont-email.me>
User-Agent : XanaNews/1.18.1.6
Adam Warner wrote:
(let ((x '(1 3 5 7 9)))
(do ((x x (cdr x))
(sum 0 (+ sum (car x))))
((null? x) sum)))
Gauche Scheme
(let1 xs '(1 3 5 7 9)
(do ((sum 0 (+ sum (pop! xs))))
((null? xs) sum)))