viewing paste let-even-odd.scm | Text

Posted on the
1 2 3 4 5 6
(write
 (letrec ((even?  (lambda (n) (if (zero? n) 'even (odd? (- n 1)))))
          (odd?  (lambda (n) (if (zero? n) 'odd (even? (- n 1))))))
  (even? 88)))
(newline)
 
Viewed 318 times, submitted by unknown.