examples/even-odd.scm


1
2
3
4
5
6

(define (even? x)
  (if (= x 0) #t (odd? (- x 1))))
(define (odd? x)
  (if (= x 1) #t (even? (- x 1))))

(display (even? 99))