artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Add negative?, positive?, zero?, 1+ 1-.

Browse source 
* module/mes/scm.mes (negative?, positive?, zero?, 1+, 1-): New functions.
This commit is contained in:
Jan Nieuwenhuizen 2016-12-20 10:57:09 +01:00
parent 376435e974
commit d7d46b9546
1 changed files with 15 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
module/mes/scm.mes
View file

@ -157,6 +157,21 @@
(define (odd? x) (define (odd? x)
(= 1 (remainder x 2))) (= 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) (define (expt x y)
(let loop ((s 1) (count y)) (let loop ((s 1) (count y))
(if (= 0 count) s (if (= 0 count) s