From fee84dce1ed2ac8448b93b7bfaff934bd3c72041 Mon Sep 17 00:00:00 2001
From: Marvin Borner
Date: Wed, 17 Aug 2022 14:15:22 +0200
Subject: Many additional functions

---
 std/Number.bruijn | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

(limited to 'std/Number.bruijn')

diff --git a/std/Number.bruijn b/std/Number.bruijn
index 81e6636..c7cce1b 100644
--- a/std/Number.bruijn
+++ b/std/Number.bruijn
@@ -299,7 +299,7 @@ gre? [[>?(1 - 0)]]
 
 # returns whether number is less than other number
 # smaller numbers should be second argument (performance)
-les? [[<?(1 - 0)]]
+les? \gre?
 
 (<?) les?
 
@@ -319,7 +319,7 @@ leq? [[!(1 >? 0)]]
 
 # returns whether number is greater than or equal to other number
 # smaller numbers should be second argument (performance)
-geq? [[!(1 <? 0)]]
+geq? \leq?
 
 (>=?) geq?
 
@@ -327,6 +327,12 @@ geq? [[!(1 <? 0)]]
 :test ((+2) >=? (+2)) (true)
 :test ((+3) >=? (+2)) (true)
 
+# returns max number of two
+max [[(1 <=? 0) 0 1]]
+
+# returns min number of two
+min [[(1 <=? 0) 1 0]]
+
 # muls two balanced ternary numbers (can introduce leading 0s)
 mul [[1 (+0) a< a> a=]]
 	a< [^=0 - 1]
-- 
cgit v1.2.3