Base58Check encoding: Difference between revisions
→{{header|RPL}}: improved processing of large binary integers
(added RPL) |
(→{{header|RPL}}: improved processing of large binary integers) |
||
(One intermediate revision by the same user not shown) | |||
Line 1,445:
=={{header|RPL}}==
Binary numbers cannot exceed 64 bits in RPL.
{{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>
|