RetroBBS - comp.lang.lisp - .Re: concentric loops

.Re: concentric loops

<svb0v9$1qtp$1@gioia.aioe.org>

https://www.rocksolidbbs.com/devel/article-flat.php?id=16934&group=comp.lang.lisp#16934

Path: i2pn2.org!i2pn.org!aioe.org!9vX9WqADbcG1VgJGr1/H5Q.user.46.165.242.75.POSTED!not-for-mail
From: No_spamming@noWhere_7073.org (Robert L.)
Newsgroups: comp.lang.lisp
Subject: .Re: concentric loops
Date: Fri, 25 Feb 2022 16:43:23 -0000 (UTC)
Organization: Aioe.org NNTP Server
Message-ID: <svb0v9$1qtp$1@gioia.aioe.org>
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Injection-Info: gioia.aioe.org; logging-data="60345"; posting-host="9vX9WqADbcG1VgJGr1/H5Q.user.gioia.aioe.org"; mail-complaints-to="abuse@aioe.org";
User-Agent: XanaNews/1.18.1.6
X-Notice: Filtered by postfilter v. 0.9.2

by: Robert L. - Fri, 25 Feb 2022 16:43 UTC

> JN> a question about the (loop ...) mechanism.
> JN> How can i do something like the following with loop?
>
> nesting loops are better done with list comprehension, for example, with
> COLLECT macro:
>
> CL-USER>
> (collect list ((+ x y))
> (in x '(1 2 3))
> (in y '(10 20 30)))
> (11 21 31 12 22 32 13 23 33)

Gauche Scheme or Racket:

(use srfi-42) ; list-ec for Gauche
or
(require srfi/42) ; list-ec for Racket

(list-ec (:list x '(7 8 9)) (:list y '(200 300 400))
(+ x y))

===>
(207 307 407 208 308 408 209 309 409)

Sorry. I just realized this sentance makes no sense :) -- Ian Main

devel / comp.lang.lisp / .Re: concentric loops

devel / comp.lang.lisp / .Re: concentric loops