Michael Heerdegen <michael_heerde...@web.de> writes: > Implement `seq-mapn' method for streams
Nice! > [...] > +(ert-deftest stream-seq-mapn-test () > + (should (streamp (seq-mapn #'+ (stream (list 1 2 3)) (stream (list 4 5 > 6))))) > + (should (not (streamp (seq-mapn #'+ (stream (list 1 2 3)) (stream (list 4 > 5 6)) (list 7 8 9))))) > + (should (= 2 (seq-length (seq-mapn #'+ (stream (list 1 2 3)) (stream (list > 4 5)))))) > + (should (equal (letrec ((fibs (stream-cons > + 1 > + (stream-cons > + 1 > + (seq-mapn #'+ fibs (stream-rest fibs)))))) > + (seq-into (seq-take fibs 10) 'list)) > + '(1 1 2 3 5 8 13 21 34 55)))) Thanks for the unit tests, that's awesome! Nico
signature.asc
Description: PGP signature