RetroBBS - comp.lang.lisp - .Re: Please check this bit of Lisp (how ugly is my code?)

.Re: Please check this bit of Lisp (how ugly is my code?)

<svq0lv$141a$1@gioia.aioe.org>

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

Path: i2pn2.org!i2pn.org!aioe.org!Aq4XX57hRQ60RoBITV3gyg.user.46.165.242.75.POSTED!not-for-mail
From: No_spamming@noWhere_7073.org (Robert L.)
Newsgroups: comp.lang.lisp
Subject: .Re: Please check this bit of Lisp (how ugly is my code?)
Date: Thu, 3 Mar 2022 09:10:24 -0000 (UTC)
Organization: Aioe.org NNTP Server
Message-ID: <svq0lv$141a$1@gioia.aioe.org>
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Injection-Info: gioia.aioe.org; logging-data="36906"; posting-host="Aq4XX57hRQ60RoBITV3gyg.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. - Thu, 3 Mar 2022 09:10 UTC

Frank Buss wrote:

> > Interesting LOOP has an it-feature, which you can't use here...
> >
> > This works:
> >
> > (defun test1 ()
> > (loop for i in '(1 2 3 4)
> > when (and (evenp i) i)
> > collect it))
>
> Thanks, I forgot this nice LOOP feature.

Somewhat less idiotic:

(loop for i in '(1 2 3 4)
when (evenp i) collect i)

===>
(2 4)

Much less idiotic:

(filter even? '(1 2 3 4))

===>
(2 4)

Nothing happens.

devel / comp.lang.lisp / .Re: Please check this bit of Lisp (how ugly is my code?)

devel / comp.lang.lisp / .Re: Please check this bit of Lisp (how ugly is my code?)

Subject	Author
.Re: Please check this bit of Lisp (how ugly is my code?)	Robert L.