問題3.76 – SICP(計算機プログラムの構造と解釈)その166
2009年04月29日
問題3.76
(define (smooth st) (define (iter st lv) (let ((average (/ (+ (stream-car st) lv) 2.0))) (cons-stream average (iter (stream-cdr st) (stream-car st))))) (iter st (stream-car st))) (define zero-crossings (make-zero-crossings (smooth sense-data) 0))
stream-map
を使った場合。
(define (smooth st) (stream-map (lambda (x y) (/ (+ x y) 2.0)) st (stream-cdr st)))
計算機プログラムの構造と解釈
posted with amazlet at 08.11.07
ジェラルド・ジェイ サスマン ジュリー サスマン ハロルド エイブルソン
ピアソンエデュケーション
売り上げランキング: 6542
ピアソンエデュケーション
売り上げランキング: 6542