diff options
| author | Marvin Borner | 2022-08-19 11:47:12 +0200 |
|---|---|---|
| committer | Marvin Borner | 2022-08-19 11:47:12 +0200 |
| commit | 867e968324d5f0e5f7ce3a33165b74affa07ab2b (patch) | |
| tree | 482be76d291f8d39dbb9daf3e539a54c9944f477 /std/Byte.bruijn | |
| parent | 5f13e286d83473e66634fa609c8440cf8d23c6c2 (diff) | |
General improvements
Diffstat (limited to 'std/Byte.bruijn')
| -rw-r--r-- | std/Byte.bruijn | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/std/Byte.bruijn b/std/Byte.bruijn index 3dd8c63..8d75314 100644 --- a/std/Byte.bruijn +++ b/std/Byte.bruijn @@ -1,6 +1,6 @@ # MIT License, Copyright (c) 2022 Marvin Borner -:import std/Combinator . +:import std/Logic . :import std/List . @@ -10,5 +10,15 @@ b0 false # bit 1 b1 true +# returns true if two bytes are equal +eq? &&( .. (zip-with xnor?) + +(=?) eq? + +:test ('a' =? 'a') (true) +:test ('a' =? 'b') (false) + # generates a byte with correct endianness byte [[[[[[[[0 : (1 : (2 : (3 : (4 : (5 : (6 : (7 : empty)))))))]]]]]]]] + +:test (byte b0 b1 b1 b0 b0 b0 b0 b1) ('a') |