aboutsummaryrefslogtreecommitdiffhomepage
path: root/std/Number/Binary.bruijn
diff options
context:
space:
mode:
Diffstat (limited to 'std/Number/Binary.bruijn')
-rw-r--r--std/Number/Binary.bruijn2
1 files changed, 2 insertions, 0 deletions
diff --git a/std/Number/Binary.bruijn b/std/Number/Binary.bruijn
index 87f7312..c778890 100644
--- a/std/Number/Binary.bruijn
+++ b/std/Number/Binary.bruijn
@@ -139,6 +139,8 @@ binary→ternary [y [[[rec]]] [0] 0 (+0t)] ⧗ Binary → Ternary
# TODO: remove ternary conversion
compare-case [[[(T.compare-case 2 1 0) ⋔ binary→ternary]]] ⧗ a → b → c → Binary → Binary → d
+<?>‣ &compare-case
+
# returns true if number is greater than other number
# TODO: remove ternary conversion
gt? T.gt? ⋔ binary→ternary ⧗ Binary → Binary → Boolean