sicp-ex-3.50



<< Previous exercise (3.49) | Index | Next exercise (3.51) >>


meteorgan



(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))))))