Sujet : Re: newbie asks: why CL rather than scheme?
De : Nobody447095 (at) *nospam* here-nor-there.org (B. Pym)
Groupes : comp.lang.lispDate : 23. Jun 2025, 14:10:25
Autres entêtes
Organisation : A noiseless patient Spider
Message-ID : <103bjo0$198dk$1@dont-email.me>
User-Agent : XanaNews/1.18.1.6
K. M. Pitman wrote:
but instead of the LOOP version above you would probably write:
(define (add-up number-list)
(let continue ((remaining-items number-list) (sum-so-far 0))
(if (null? remaining-items)
sum-so-far
(add-up (cdr remaining-items)
(+ sum-so-far (car remaining-items))))))
Wrong. You didn't even use "continue". Understand?
Gauche Scheme
(do ((sum 0 (+ sum (pop! nums))))
((null? nums) sum))
Another way.
(use srfi-42 :only (sum-ec))
(define (add-up number-list)
(sum-ec (:list x number-list) x))