RetroBBS - comp.lang.lisp - .Re: Seeking computer-programming job (Sunnyvale, CA)

.Re: Seeking computer-programming job (Sunnyvale, CA)

<suqgjh$19fg$1@gioia.aioe.org>

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

Path: i2pn2.org!i2pn.org!usenet.goja.nl.eu.org!aioe.org!gSXBwBB/iIprw9K3nELhqg.user.46.165.242.75.POSTED!not-for-mail
From: No_spamming@noWhere_7073.org (Robert L.)
Newsgroups: comp.lang.lisp
Subject: .Re: Seeking computer-programming job (Sunnyvale, CA)
Date: Sat, 19 Feb 2022 10:25:54 -0000 (UTC)
Organization: Aioe.org NNTP Server
Message-ID: <suqgjh$19fg$1@gioia.aioe.org>
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Injection-Info: gioia.aioe.org; logging-data="42480"; posting-host="gSXBwBB/iIprw9K3nELhqg.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. - Sat, 19 Feb 2022 10:25 UTC

> Anaphoric macros are extremely useful. There's a hidden anaphor in the
> CL loop macro, which binds the value of IT onto a previously-evaluated
> conditional. In other words, within a loop, you can say something like
>
> (loop
> for x in list-of-things
> when (find x other-list) collect it)

(defun fn (n)
(let ((x (/ n 3)))
(and (integerp x) x)))

(loop
for x in '(2 3 4 5 6 8 9)
when (fn x) collect it)

(1 2 3)

Gauche Scheme and Racket:

(define (fn n)
(let ((x (/ n 3)))
(and (integer? x) x)))

(filter-map fn '(2 3 4 5 6 8 9))
===>
(1 2 3)

Sex is like air. It's only a big deal if you can't get any.

devel / comp.lang.lisp / .Re: Seeking computer-programming job (Sunnyvale, CA)

devel / comp.lang.lisp / .Re: Seeking computer-programming job (Sunnyvale, CA)

Subject	Author
.Re: Seeking computer-programming job (Sunnyvale, CA)	Robert L.