Re: newbie asks: why CL rather than scheme?

Liste des GroupesRevenir à cl lisp 
Sujet : Re: newbie asks: why CL rather than scheme?
De : Nobody447095 (at) *nospam* here-nor-there.org (B. Pym)
Groupes : comp.lang.lisp
Date : 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))

Date Sujet#  Auteur
23 Jun 25 o Re: newbie asks: why CL rather than scheme?1B. Pym

Haut de la page

Les messages affichés proviennent d'usenet.

NewsPortal