Re: [ANN] New library stream.el in ELPA

[Nicolas Petton]

Michael Heerdegen <address@hidden> writes:

> I tried this stress test with your lib:
>
> --8<---------------cut here---------------start------------->8---
> (defun stream-append (s1 s2)
>   (if (stream-empty-p s1) s2
>       (stream-cons
>        (stream-first s1)
>        (stream-append (stream-rest s1) s2))))
>
> (seq-elt (stream-append
>           (stream (cl-loop for i from 1 to 100 collect i))
>           (seq-filter
>            #'cl-oddp
>            (stream-append
>             (stream (cl-loop for i from 1 to 50000 collect i))
>             (seq-map #'1+ (stream (cl-loop for i from 50001 to 100001 collect 
> i))))))
>          40000)
> --8<---------------cut here---------------end--------------->8---
>
> What can I say - it work well!

:-)

>
> BTW, is `stream-append' missing in your library, or should that be done
> via some `seq' function?

It could be done with `seq-concatenate', but it would not be lazy, and
would return a sequence (consuming the entire stream!).  Adding
`stream-append' would indeed make sense.

The repository is https://github.com/NicolasPetton/stream, if you want
to send me a patch.

Nico

signature.asc
Description: PGP signature