sva40077.scm 185 B

12345678910
  1. (let ((a 0) (b 0.01))
  2. (format #t "~a~%" (and (eqv? a 0) (not b))))
  3. ;; Output: #f
  4. (define (repeat? a b)
  5. (and (eqv? a 0) (not b)))
  6. (format #t "~a~%" (repeat? 0 0.01))
  7. ;; Output: #f