From d7d46b95465603197806409bef2542bbc9a60f4e Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Tue, 20 Dec 2016 10:57:09 +0100 Subject: [PATCH] Add negative?, positive?, zero?, 1+ 1-. * module/mes/scm.mes (negative?, positive?, zero?, 1+, 1-): New functions. --- module/mes/scm.mes | 15 +++++++++++++++ 1 file changed, 15 insertions(+) diff --git a/module/mes/scm.mes b/module/mes/scm.mes index 7861f05f..c0397533 100644 --- a/module/mes/scm.mes +++ b/module/mes/scm.mes @@ -157,6 +157,21 @@ (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