Solution to 4.33. This had been difficult to get right, though conceptually it was

[sicp.git] / src / sicp / ex3_54.rkt

#lang planet neil/sicp

(define (mul-streams s1 s2)
  (stream-map * s1 s2))

(define factorial (cons-stream 1 (mul-streams factorial (integers-starting-from 2))))