diff options
| author | Marvin Borner | 2024-03-03 15:03:41 +0100 |
|---|---|---|
| committer | Marvin Borner | 2024-03-03 22:29:24 +0100 |
| commit | 6ae44d09faa0ae353c0818705503cad42127d102 (patch) | |
| tree | a923d00d520f85a608f51416184e5b3b6f178549 /std/Number/Binary.bruijn | |
| parent | 03155d6e515c76d5ab59f814592484c849313130 (diff) | |
Even more samples
wtf
Diffstat (limited to 'std/Number/Binary.bruijn')
| -rw-r--r-- | std/Number/Binary.bruijn | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/std/Number/Binary.bruijn b/std/Number/Binary.bruijn index fcbe264..a056538 100644 --- a/std/Number/Binary.bruijn +++ b/std/Number/Binary.bruijn @@ -348,7 +348,7 @@ compare-case [[[(T.compare-case 2 1 0) ⋔ binary→ternary]]] ⧗ a → b → c # returns 1 if a>b, -1 if a<b and 0 if a=b # also: spaceship operator -compare compare-case (+0) (+1) (-1) ⧗ Binary → Binary → Binary +compare compare-case (+0) (+1) (-1) ⧗ Binary → Binary → Number :test (compare (+2b) (+2b)) ((+0)) :test (compare (+2b) (+1b)) ((+1)) |