rotten news relay - comp.lang.lisp - .Re: concentric loops

Subject: .Re: concentric loops
From: B. Pym
Newsgroups: comp.lang.lisp
Organization: A noiseless patient Spider
Date: Sun, 9 Jun 2024 07:24 UTC

Path: eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: No_spamming@noWhere_7073.org (B. Pym)
Newsgroups: comp.lang.lisp
Subject: .Re: concentric loops
Date: Sun, 9 Jun 2024 07:24:55 -0000 (UTC)
Organization: A noiseless patient Spider
Lines: 18
Message-ID: <v43lc4$3a1pu$1@dont-email.me>
MIME-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Injection-Date: Sun, 09 Jun 2024 09:24:55 +0200 (CEST)
Injection-Info: dont-email.me; posting-host="96981e22874fd1175713420b87f6d849";
logging-data="3475262"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX188V7LhnzsCZBZdvOtMCWAg"
User-Agent: XanaNews/1.18.1.6
Cancel-Lock: sha1:tmqVzwR2cxCsP6JLfM7sZllko/I=

View all headers

Peter Seibel wrote:

> > --> ( 11 12 13 21 22 23 31 32 33)
> >
> > I know that in CL plus is replaced by +, but how can I
> > handle the mapcar inside the mapcan?
>
> (loop for x from 10 to 30 by 10 nconcing
> (loop for y from 1 to 3 collect (+ x y)))

Gauche Scheme

(use srfi-42) ; list-ec

(list-ec (:range x 10 31 10) (:range y 1 4) (+ x y))

===>
(11 12 13 21 22 23 31 32 33)

Subject	Author
.Re: concentric loops	B. Pym

BOFH excuse #358: struck by the Good Times virus

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