Add even?, odd?.
authorJan Nieuwenhuizen <janneke@gnu.org>
Tue, 20 Dec 2016 09:41:39 +0000 (10:41 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Tue, 20 Dec 2016 09:41:39 +0000 (10:41 +0100)
* module/mes/scm.mes (even?, odd?): New function.

module/mes/scm.mes

index 433ddd41a4b146e160ae80b727caeb211cd19fd4..7861f05ff8c062517d14de7452a2b25d89d18b67 100644 (file)
 (define (remainder x y)
   (- x (* (quotient x y) y)))
 
+(define (even? x)
+  (= 0 (remainder x 2)))
+
+(define (odd? x)
+  (= 1 (remainder x 2)))
+
 (define (expt x y)
   (let loop ((s 1) (count y))
     (if (= 0 count) s