From: Ramakrishnan Muthukrishnan Date: Fri, 1 Jul 2011 17:06:21 +0000 (+0530) Subject: solution to 3.50 X-Git-Url: https://git.rkrishnan.org/copyable.html?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