RetroBBS - comp.lang.lisp - sequence iteration

sequence iteration

<su59of$1sl7$1@gioia.aioe.org>

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

Path: i2pn2.org!i2pn.org!aioe.org!Ielm+gIDc34O3DFO922iPA.user.46.165.242.75.POSTED!not-for-mail
From: No_spamming@noWhere_7073.org (Robert L.)
Newsgroups: comp.lang.lisp
Subject: sequence iteration
Date: Fri, 11 Feb 2022 09:20:17 -0000 (UTC)
Organization: Aioe.org NNTP Server
Message-ID: <su59of$1sl7$1@gioia.aioe.org>
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Injection-Info: gioia.aioe.org; logging-data="62119"; posting-host="Ielm+gIDc34O3DFO922iPA.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 09:20 UTC

> (loop
> for element in sequence
> collect (do-something-to element)
> until (> element 5))
>
> This performs some action on each element (do-something-to) and
> collects the results in a list (the return value of loop). If it runs
> into an element that is greater than 5, it will terminate early and
> return whatever it collected so far.

(use srfi-42) ;; list-ec for Gauche Scheme.
or
(require srfi/42) ;; list-ec for Racket.

(define nums '(-8 0 4 6 9))

(list-ec (:until (:list x nums) (> x 5)) (abs x))

===>
(8 0 4 6)

We can predict everything, except the future.

devel / comp.lang.lisp / sequence iteration

devel / comp.lang.lisp / sequence iteration