Sujet : Re: Python syntax in Lisp and Scheme
De : Nobody447095 (at) *nospam* here-nor-there.org (B. Pym)
Groupes : comp.lang.lispDate : 13. Sep 2024, 22:38:02
Autres entêtes
Organisation : A noiseless patient Spider
Message-ID : <vc27r9$11j3k$1@dont-email.me>
User-Agent : XanaNews/1.18.1.6
Paul Rubin wrote:
Scheme
(define vector-fill!
(lambda (v x)
(let ((n (vector-length v)))
(do ((i 0 (+ i 1)))
((= i n))
(vector-set! v i x)))))
I think you could write the scheme code like this:
(define vector-fill! (v x)
(let ((i 0))
(while (< i (length v))
(vector-set! v i x)
(set! i (1+ i)))))
Gauche Scheme
(define myvec (vector 0 0 0 0 0))
(vector-fill! myvec 99)