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))))
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))))