From 950cfbd4388e05de60e30b0c18ecbb59afb3ce3a Mon Sep 17 00:00:00 2001 From: Ramakrishnan Muthukrishnan <vu3rdd@gmail.com> Date: Fri, 1 Jul 2011 22:36:21 +0530 Subject: [PATCH] solution to 3.50 --- src/sicp/ex3_50.rkt | 9 +++++++++ 1 file changed, 9 insertions(+) create mode 100644 src/sicp/ex3_50.rkt 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 -- 2.45.2