(wat-aro)

無職から有職者にランクアップしました

SICP 問題 3.54

mul-streamsを定義して,0から始まるn番目の階乗,factorialsを定義する.

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

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