問題3.54 – SICP(計算機プログラムの構造と解釈)その148

問題3.54

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

(define factorials (cons-stream 1 (mul-streams
                                    factorials
                                    (add-streams ones integers))))

(stream-ref factorials 0) ; n=1
gosh> 1
(stream-ref factorials 1) ; n=2
gosh> 2
(stream-ref factorials 2) ; n=3
gosh> 6
(stream-ref factorials 3) ; n=4
gosh> 24
(stream-ref factorials 4) ; n=5
gosh> 120
(stream-ref factorials 5) ; n=6
gosh> 720
計算機プログラムの構造と解釈
ジェラルド・ジェイ サスマン ジュリー サスマン ハロルド エイブルソン
ピアソンエデュケーション
売り上げランキング: 6542
«
»