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

問題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)))
計算機プログラムの構造と解釈
ジェラルド・ジェイ サスマン ジュリー サスマン ハロルド エイブルソン
ピアソンエデュケーション
売り上げランキング: 6542
«
»