let-even-odd.scm | Text - uPaste.me!

viewing paste let-even-odd.scm | Text

Posted on the 10th May, 2015 at 14:01:31

Copied to clipboard

(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 605 times, submitted by Guest.

(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)