From 8b172e3438015bb6660f6fa0035992e48dae5905 Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Tue, 20 Dec 2016 21:22:21 +0100 Subject: [PATCH] Add abs. * module/mes/scm.mes (abs): New function. --- module/mes/scm.mes | 3 +++ 1 file changed, 3 insertions(+) diff --git a/module/mes/scm.mes b/module/mes/scm.mes index ad1198f3..a9898c8a 100644 --- a/module/mes/scm.mes +++ b/module/mes/scm.mes @@ -185,6 +185,9 @@ (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 -- 2.31.1