<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body text="#000000" bgcolor="#FFFFFF">
<p>Here are two different ways of rewriting that mapc with iter:<br>
</p>
<p>`(iter top (repeat 1) (iter (for x in '(1 2 3)) (in top (collect
x))))`</p>
<p>`(iter (repeat 1) (appending '(1 2 3)))`</p>
<p>`(iter (repeat 1) (appending (iter (for x in '(1 2 3)) (collect
x))))`</p>
<p>If I am using iter, I try hard to *only* use iter, as one of the
reasons for this library (for me) is to have a single syntax for
iteration.</p>
<p>That said, I wrote the `collectors` library to handle arbitrary
collection tasks that were not easily expressed as a straight
iteration.<br>
The collectors library binds local functions, so you can `(mapc
#'collect ...)` etc.</p>
<p><a class="moz-txt-link-freetext" href="https://github.com/AccelerationNet/collectors">https://github.com/AccelerationNet/collectors</a> <br>
</p>
<p>Cheers,</p>
<p>Russ Tyndall<br>
</p>
<br>
<div class="moz-cite-prefix">On 03/13/2018 11:52 AM, Luís Oliveira
wrote:<br>
</div>
<blockquote type="cite"
cite="mid:CAB-HnLS00UxDZ=TA_G3nHdFyXHqEO8zCsCKF+yz8rN5LNiZ2eg@mail.gmail.com">
<div dir="ltr">
<div>Just a curiosity: you could compute the average
incrementally: <<a
href="https://math.stackexchange.com/questions/106700/incremental-averageing"
moz-do-not-send="true">https://math.stackexchange.com/questions/106700/incremental-averageing</a>>,
but doing it the usual way is probably more efficient and with
smaller numeric error when using floats.</div>
<div><br>
</div>
<div>Slightly off-topic question: oftentimes I have to use
map-like iterators. Is there a good way to use such iterators
in conjunction with iter? An obvious way would be something
like:</div>
<div><br>
</div>
<div> (iter (repeat 1) (mapc (lambda (x) (collect x)) '(1 2
3)))</div>
<div><br>
</div>
<div>The (iter (repeat 1) ...) bit could be hidden under a
macro, I suppose. But it'd be nicer if collect were a
function, so I could do (mapc #'collect '(1 2 3)). Perhaps
said macro could rewrite #'clause to (lambda (x)
(expansion-of-clause x)) or something similar. Looks like a
fun idea to explore so I'm wondering if someone's played with
something like this before.</div>
<div><br>
</div>
<div>(It's even more fun to turn map-like iterators into
generators using continuations, but that's fully off-topic.
:-))</div>
<div><br>
</div>
<div>Cheers,</div>
<div>Luís</div>
</div>
<br>
<div class="gmail_quote">
<div dir="ltr">On Tue, Mar 13, 2018 at 3:08 PM Russ Tyndall <<a
href="mailto:russ@acceleration.net" moz-do-not-send="true">russ@acceleration.net</a>>
wrote:<br>
</div>
<blockquote class="gmail_quote" style="margin:0 0 0
.8ex;border-left:1px #ccc solid;padding-left:1ex">
<div text="#000000" bgcolor="#FFFFFF">
<p>Here is an existing "sampling" clause to pull a random
sample from a larger data set. The long and short is just
use a finally clause, as you would when writing a normal
iterate loop.</p>
<p>(iterate:defmacro-clause (sampling expr &optional
into var size size)<br>
"resevoir sample the input"<br>
(let ((sample (or var iterate::*result-var*)))<br>
(alexandria:with-unique-names (i sample-size sigil
buffer row)<br>
`(progn<br>
(with ,sample)<br>
(with ,sample-size = (or ,size 100))<br>
(with ,buffer = (make-array ,sample-size
:initial-element ',sigil))<br>
(with ,i = 0)<br>
(if (< ,i ,sample-size)<br>
(setf (aref ,buffer ,i) ,expr)<br>
(let ((r (random ,i)))<br>
(when (< r ,sample-size)<br>
(setf (aref ,buffer r) ,expr))))<br>
(incf ,i)<br>
(finally<br>
;; convert our sample to a list, but only if we
actually took the sample<br>
(when (plusp ,i)<br>
(setf ,sample<br>
(iter (for ,row in-vector ,buffer)<br>
(until (eq ,row ',sigil))<br>
(collect ,row)))))))))<br>
<br>
</p>
Cheers,<br>
Russ Tyndall<br>
Acceleration.net</div>
<div text="#000000" bgcolor="#FFFFFF"><br>
<div class="m_-2021505211364927429moz-cite-prefix">On
03/13/2018 10:49 AM, Robert Goldman wrote:<br>
</div>
<blockquote type="cite">
<div style="font-family:sans-serif">
<div style="white-space:normal">
<p dir="auto">I was going to define an <code
style="background-color:#f7f7f7;border-radius:3px;margin:0;padding:0
0.4em" bgcolor="#F7F7F7">AVERAGING</code>
collector clause for iterate, but I'm not sure how
to do it. The obvious thing, it seemed to me, would
be to sum the values as I go along, and count them,
and then divide the sum by the count when leaving
the loop.</p>
<p dir="auto">But the examples for <code
style="background-color:#f7f7f7;border-radius:3px;margin:0;padding:0
0.4em" bgcolor="#F7F7F7">DEFMACRO-CLAUSE</code> in
the manual do all of their work while iterating, and
there doesn't seem to be an "at-end" hook. Is the
kind of thing I would like feasible, and if so, how
is it to be done?</p>
<p dir="auto">thanks!<br>
r</p>
</div>
</div>
</blockquote>
<br>
</div>
</blockquote>
</div>
</blockquote>
<br>
</body>
</html>