From: Ramakrishnan Muthukrishnan <vu3rdd@gmail.com>
Date: Fri, 1 Jul 2011 17:06:21 +0000 (+0530)
Subject: solution to 3.50
X-Git-Url: https://git.rkrishnan.org/listings/readonly?a=commitdiff_plain;h=950cfbd4388e05de60e30b0c18ecbb59afb3ce3a;p=sicp.git

solution to 3.50
---

diff --git a/src/sicp/ex3_50.rkt b/src/sicp/ex3_50.rkt
new file mode 100644
index 0000000..be655d3
--- /dev/null
+++ b/src/sicp/ex3_50.rkt
@@ -0,0 +1,9 @@
+#lang racket
+
+(define (stream-map proc . argstreams)
+  (if (stream-null? (car argstreams))
+      the-empty-stream
+      (cons-stream
+       (apply proc (map stream-car argstreams))
+       (apply stream-map
+              (cons proc (map stream-cdr argstreams))))))
\ No newline at end of file