Add negative?, positive?, zero?, 1+ 1-.
authorJan Nieuwenhuizen <janneke@gnu.org>
Tue, 20 Dec 2016 09:57:09 +0000 (10:57 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Tue, 20 Dec 2016 09:57:09 +0000 (10:57 +0100)
* module/mes/scm.mes (negative?, positive?, zero?, 1+, 1-): New functions.

module/mes/scm.mes

index 7861f05ff8c062517d14de7452a2b25d89d18b67..c0397533d8bb8a4a1989118705df5cbbeec829ad 100644 (file)
 (define (odd? x)
   (= 1 (remainder x 2)))
 
+(define (negative? x)
+  (< x 0))
+
+(define (positive? x)
+  (> x 0))
+
+(define (zero? x)
+  (= x 0))
+
+(define (1+ x)
+  (+ x 1))
+
+(define (1- x)
+  (- x 1))
+
 (define (expt x y)
   (let loop ((s 1) (count y))
     (if (= 0 count) s