diff options
| author | Marvin Borner | 2023-03-04 23:04:18 +0100 |
|---|---|---|
| committer | Marvin Borner | 2023-03-04 23:04:18 +0100 |
| commit | 6b7eb467fef16141760e8eb8a151fecb508675e1 (patch) | |
| tree | 254b380f0d2377213b878b805bdfc5b8a1125d4b /std/Number/Binary.bruijn | |
| parent | 9eaa24413f8e20a759d2c19d1e225b2b7a37a3d0 (diff) | |
More efficient mst functions
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 2d36c5f..2f0fbce 100644 --- a/std/Number/Binary.bruijn +++ b/std/Number/Binary.bruijn @@ -85,7 +85,7 @@ lst [0 b⁰ [b¹] [b⁰]] ⧗ Binary → Bit # extracts most significant bit from a binary number # not really useful for binary numbers, but part of interface -mst [=?0 b⁰ ^(<~>(list! %0))] ⧗ Binary → Bit +mst [=?0 b⁰ b¹] ⧗ Binary → Bit :test (mst (+0b)) (b⁰) :test (mst (+1b)) (b¹) |