sicp-ex-3.56



<< Previous exercise (3.55) | Index | Next exercise (3.57) >>


meteorgan



(define S (cons-stream 1 (merge (merge (scale-stream S 2) (scale-stream S 3)) 
                                                          (scale-stream S 5))))