読者です 読者をやめる 読者になる 読者になる

(wat-aro)

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

SICP 問題 3.76

scheme SICP

前回のデータと比べて平均化する.

(define (smooth stream)
  (cons-stream (average (car stream) 0)
               (stream-map average
                           (stream-cdr stream)
                           stream)))

(define (make-zero-crossings sense-data)
  (let ((smooth-data (smooth sense-data)))
    (stream-map sign-change-detector
                smooth-data
                (cons-stream 0 smooth-data))))