Add abs.
authorJan Nieuwenhuizen <janneke@gnu.org>
Tue, 20 Dec 2016 20:22:21 +0000 (21:22 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Tue, 20 Dec 2016 20:22:21 +0000 (21:22 +0100)
* module/mes/scm.mes (abs): New function.

module/mes/scm.mes

index ad1198f322ab86bb689b2846a25ca79537670f87..a9898c8ad95300cb3190f58cbef025b2f777d374 100644 (file)
 (define (1- x)
   (- x 1))
 
+(define (abs x)
+  (if (>= x 0) x (- x)))
+
 (define (expt x y)
   (let loop ((s 1) (count y))
     (if (= 0 count) s