# letrec-even-odd.scm -rw-r--r-- 261 bytes View raw 
                                                                                
1
2
3
4
5
6
7
8
9
(letrec ((even? (lambda (n)
                  (if (zero? n)
                      #t
                      (odd? (- n 1)))))
         (odd? (lambda (n)
                 (if (zero? n)
                     #f
                     (even? (- n 1))))))
  (even? 10))