Balanced ternary: Difference between revisions
m
→{{header|11l}}: privating
Alextretyak (talk | contribs) (→{{header|11l}}: Small refactor) |
Alextretyak (talk | contribs) m (→{{header|11l}}: privating) |
||
Line 30:
<syntaxhighlight lang="11l">T BalancedTernary
. -:str2dig = [‘+’ = 1, ‘-’ = -1, ‘0’ = 0]
. -:dig2str = [1 = ‘+’, -1 = ‘-’, 0 = ‘0’]
. -:table = [(0, -1), (1, -1), (-1, 0), (0, 0), (1, 0), (-1, 1), (0, 1)]
[Int] digits
Line 45:
R BalancedTernary(reversed(inp).map(c -> BalancedTernary.:str2dig[c]))
. F :int2ternary(n)
I n == 0
R [Int]()
Line 65:
R reversed(.digits).map(d -> .:dig2str[d]).join(‘’)
. F :neg(digs)
R digs.map(d -> -d)
Line 71:
R BalancedTernary(.:neg(.digits))
. F :add(a, b, =c = 0)
I !(!a.empty & !b.empty)
I c == 0
| |||