Message-ID:

The test of intelligent tinkering is to save all the parts. -- Aldo Leopold

devel / comp.lang.lisp / My First Lisp Program

My First Lisp Program

<su9u4r$et9$1@gioia.aioe.org>

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

Path: i2pn2.org!i2pn.org!aioe.org!uUJbdg9jyTZ/MaHEmaRA4g.user.46.165.242.75.POSTED!not-for-mail
From: No_spamming@noWhere_7073.org (Robert L.)
Newsgroups: comp.lang.lisp
Subject: My First Lisp Program
Date: Sun, 13 Feb 2022 03:32:44 -0000 (UTC)
Organization: Aioe.org NNTP Server
Message-ID: <su9u4r$et9$1@gioia.aioe.org>
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Injection-Info: gioia.aioe.org; logging-data="15273"; posting-host="uUJbdg9jyTZ/MaHEmaRA4g.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. - Sun, 13 Feb 2022 03:32 UTC

Ken Tilton wrote:

> Great, Pillsy, you just broke the OP's function. Let us hope it is
> indeed "not used?". The Op was accumulating the fn return value, not the
> original list element. Ergo:
>
> (loop for e in list when (funcall fn e) collect it)

Gauche Scheme:

(filter-map
(^(n) (and (even? n) (* n n n)))
(iota 22))

===>
(0 8 64 216 512 1000 1728 2744 4096 5832 8000)