blob: df6c78b60fa87dc3a2adb9360d4ad2c60b99b4f0 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
|
# MIT License, Copyright (c) 2023 Marvin Borner
:input std/Number/Binary
:import std/Number/Conversion .
# converts a char to a balanced ternary number
char→number [binary→ternary (0 - '0')] ⧗ Char → Number
# converts a balanced ternary number to a char
number→char ['0' + (ternary→binary 0)] ⧗ Number → Char
|
