Упражнение 3.74 Переходы входного сигнала через ноль
nameless

Код Ревью

Сравни свои решения
    (define (sign-change-detector value last-value)
  (cond ((and (< last-value 0) (>= value 0)) 1)
        ((and (>= last-value 0) (< value 0)) -1)
        (else 0)))

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

    (define (sign-change-detector value last-value)
  (cond ((and (< last-value 0) (>= value 0)) 1)
        ((and (>= last-value 0) (< value 0)) -1)
        (else 0)))

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

    (define (sign-change-detector value last-value)
  (cond ((and (< last-value 0) (>= value 0)) 1)
        ((and (>= last-value 0) (< value 0)) -1)
        (else 0)))

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

    (define (sign-change-detector value last-value)
  (cond ((and (< last-value 0) (>= value 0)) 1)
        ((and (>= last-value 0) (< value 0)) -1)
        (else 0)))

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