Sujet : Re: (asdf:oos 'asdf:unload-op 'cl-spont)
De : Nobody447095 (at) *nospam* here-nor-there.org (B. Pym)
Groupes : comp.lang.lispDate : 26. Aug 2024, 08:08:58
Autres entêtes
Organisation : A noiseless patient Spider
Message-ID : <vah9m7$2c4ip$1@dont-email.me>
User-Agent : XanaNews/1.18.1.6
Pascal Bourguignon wrote:
(defun number-list (list)
(loop
:for n :from 1
:for item :in list
:collect (cons n item)))
Gauche Scheme
(map cons (lrange 1) '(foo bar baz))
((1 . foo) (2 . bar) (3 . baz))