Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 2a9dba2f9e
Fetching contributors…

Cannot retrieve contributors at this time

12 lines (9 sloc) 0.415 kb
;; Example 3.75
#lang racket
(require racket/stream)
(define (make-zero-crossings input-stream last-value last-avpt)
(let ((avpt (/ (+ (stream-car input-stream) last-value) 2)))
(stream-cons (sign-change-detectpr avpt last-avpt)
(make-zero-crossings (stream-rest input-stream)
(stream-first input-stream)
avpt))))
Jump to Line
Something went wrong with that request. Please try again.