Negative base numbers: Difference between revisions
changed driver output for decoding
No edit summary |
(changed driver output for decoding) |
||
Line 293:
P := Decode_Negative_Base (ns, B);
Put (
Put (" decoded in base ");
Put (Item => B, Width => 3);
Line 310:
<pre>
10 encoded in base -2 = 11110
146 encoded in base -3 = 21102
15 encoded in base -10 = 195
36058 encoded in base -62 = Ada
=={{header|ALGOL 68}}==
| |||