問題3-54 (3.5.2 Infinite Streams)

まずは，2 つのストリームを掛け合わせる

まずは，2 つのストリームを掛け合わせて，新しい無限ストリームを作るような関数 mul-stream をこさえます．

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

こさえると言っても，add-stream の演算子を変えただけだし，このあたりになると add-stream と mul-stream の共通部分を括り出してもよさそうな気がしますね! SICP でもたしか第一章で似たような話をやってたなー．

そして目的の無限ストリーム factorials を作る

; n から始まる整数の無限ストリームを構成
(define (integers-starting-from n)
  (cons-stream n (integers-starting-from (+ n 1))))

; ゴール
(define factorials
  (cons-stream 1
               (mul-stream factorials
                           integers))))

(stream-car factorials)     ; 1
(stream-cadr factorials)    ; 1
(stream-caddr factorials)   ; 2
(stream-cadddr factorials)  ; 6