diff options
Diffstat (limited to 'std/Math/Rational.bruijn')
| -rw-r--r-- | std/Math/Rational.bruijn | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/std/Math/Rational.bruijn b/std/Math/Rational.bruijn index 4c2f046..1f8a8ec 100644 --- a/std/Math/Rational.bruijn +++ b/std/Math/Rational.bruijn @@ -8,6 +8,11 @@ :import std/Pair . :import std/Math N +# converts a balanced ternary number to a rational number +number→rational [0 : (+0)] ⧗ Number → Rational + +:test (number→rational (+5)) ((+5.0)) + # returns true if two rational numbers are equal eq? &[[&[[N.eq? (N.mul 3 N.++0) (N.mul N.++2 1)]]]] ⧗ Rational → Rational → Boolean |