RetroBBS - comp.lang.lisp - Newbie style questions

Newbie style questions

<su4b57$1vt7$1@gioia.aioe.org>

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

Path: i2pn2.org!i2pn.org!aioe.org!n+uGDc3wHShS7br8ovd0Cg.user.46.165.242.75.POSTED!not-for-mail
From: No_spamming@noWhere_7073.org (Robert L.)
Newsgroups: comp.lang.lisp
Subject: Newbie style questions
Date: Fri, 11 Feb 2022 00:38:01 -0000 (UTC)
Organization: Aioe.org NNTP Server
Message-ID: <su4b57$1vt7$1@gioia.aioe.org>
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Injection-Info: gioia.aioe.org; logging-data="65447"; posting-host="n+uGDc3wHShS7br8ovd0Cg.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. - Fri, 11 Feb 2022 00:38 UTC

> (defun partition (pred list)
> (loop for item in list
> when (funcall pred item)
> collect item into in
> else
> collect item into out
> finally (return (values in out))))
>
> For what it's worth [if anything!], this version preserves the
> initial relative ordering of items which pass/don't-pass the
> predicate, e.g.:
>
> > (partition (lambda (x) (zerop (mod x 3))) (iota 30))
>
> (0 3 6 9 12 15 18 21 24 27)
> (1 2 4 5 7 8 10 11 13 14 16 17 19 20 22 23 25 26 28 29)

Gauche Scheme:

(partition (lambda (x) (zero? (modulo x 3))) (iota 30))
===>
(0 3 6 9 12 15 18 21 24 27)
(1 2 4 5 7 8 10 11 13 14 16 17 19 20 22 23 25 26 28 29)

Unix will self-destruct in five seconds... 4... 3... 2... 1...

devel / comp.lang.lisp / Newbie style questions

devel / comp.lang.lisp / Newbie style questions