Add stream implementations

1 files changed, 14 insertions, 0 deletions

diff --git a/algebraic-structures.private.stream.monad.scm b/algebraic-structures.private.stream.monad.scm
new file mode 100644
index 0000000..e22a396
--- /dev/null
+++ b/algebraic-structures.private.stream.monad.scm
@@ -0,0 +1,14 @@
+(module (algebraic-structures private stream monad) (>>=)
+  (import (except scheme map apply)
+          (chicken module)
+          (srfi 41))
+  (reexport (algebraic-structures stream applicative))
+
+  (define-stream (stream-append-map f strm)
+    (if (stream-null? strm)
+        stream-null
+        (stream-append (f (stream-car strm))
+                       (stream-append-map f (stream-cdr strm)))))
+
+  (define (>>= xs f)
+    (stream-append-map f xs)))