Base58Check encoding: Difference between revisions
→{{header|RPL}}: improved processing of large binary integers
m (→{{header|RPL}}: added comment) |
(→{{header|RPL}}: improved processing of large binary integers) |
||
Line 1,448:
{{works with|HP|48G}}
« "123456789ABCDEFGHJKLMNPQRSTUVWXYZabcdefghijkmnopqrstuvwxyz" → alphabet
▲ ""
'''WHILE'''
'''IF''' 1 FS? '''THEN''' / LASTARG 3 PICK * - B→R SWAP
'''ELSE''' MOD LASTARG / IP '''END'''
alphabet ROT 1 + DUP SUB
ROT +
'''END''' DROP
» » '<span style="color:blue">→B58</span>' STO <span style="color:grey">''@ ( n or #n → "code" }''</span>
| |||