Many additional functions

1 files changed, 8 insertions, 2 deletions

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]