Rocksolid Light

News from da outaworlds

mail  files  register  groups  login

Message-ID:  

You will be winged by an anti-aircraft battery.


comp / comp.lang.lisp / Re: mapcar using a function with one argument fixed

SubjectAuthor
o Re: mapcar using a function with one argument fixedB. Pym

1
Subject: Re: mapcar using a function with one argument fixed
From: B. Pym
Newsgroups: comp.lang.lisp
Organization: A noiseless patient Spider
Date: Thu, 29 Aug 2024 06:42 UTC
Path: eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: Nobody447095@here-nor-there.org (B. Pym)
Newsgroups: comp.lang.lisp
Subject: Re: mapcar using a function with one argument fixed
Date: Thu, 29 Aug 2024 06:42:09 -0000 (UTC)
Organization: A noiseless patient Spider
Lines: 12
Message-ID: <vap57u$3sefl$1@dont-email.me>
MIME-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Injection-Date: Thu, 29 Aug 2024 08:42:10 +0200 (CEST)
Injection-Info: dont-email.me; posting-host="04737eacfc9f816e64fd3f986b66e8f3";
logging-data="4078069"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX1/FtGpEocMQRtW8nwtcw/R0"
User-Agent: XanaNews/1.18.1.6
Cancel-Lock: sha1:kAfEyw0qul9hTM7Nc+kGxrZppdg=
View all headers

Rainer Joswig wrote:

> (LOOP FOR x IN list-for-xs AND y IN list-for-ys
> COLLECT (my-function a y x b))

(define x-list '(x0 x1 x2 x3))
(define y-list '(y0 y1 y2 y3))

(map (cut list '! <> '! <>) x-list y-list)

===>
((! x0 ! y0) (! x1 ! y1) (! x2 ! y2) (! x3 ! y3))

1

rocksolid light 0.9.8
clearnet tor