Base64 decode data: Difference between revisions
Content added Content deleted
(added RPL) |
|||
Line 1,769: | Line 1,769: | ||
Um9zZXR0YSBDb2RlIEJhc2U2NCBkZWNvZGUgZGF0YSB0YXNr |
Um9zZXR0YSBDb2RlIEJhc2U2NCBkZWNvZGUgZGF0YSB0YXNr |
||
Rosetta Code Base64 decode data task |
Rosetta Code Base64 decode data task |
||
</pre> |
|||
=={{header|RPL}}== |
|||
{{works with|RPL|HP-49C}} |
|||
« "" DUP DUP2 → s a b c d |
|||
« "" |
|||
1 s SIZE '''FOR''' j |
|||
0 3 '''FOR''' k |
|||
"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" |
|||
s j k + DUP SUB POS |
|||
'''NEXT''' |
|||
4 →LIST 1 - { a b c d } STO |
|||
a 4 * b 16 / IP + CHR + |
|||
'''IF''' c -1 ≠ '''THEN''' b 16 MOD 16 * c 4 / IP + CHR + '''END''' |
|||
'''IF''' d -1 ≠ '''THEN''' c 4 MOD 64 * d + CHR + '''END''' |
|||
4 '''STEP''' |
|||
» » '<span style="color:blue">B64→</span>' STO |
|||
"VG8gZXJyIGlzIGh1bWFuLCBidXQgdG8gcmVhbGx5IGZvdWwgdGhpbmdzIHVwIHlvdSBuZWVkIGEgY29tcHV0ZXIuCiAgICAtLSBQYXVsIFIuIEVocmxpY2g=" <span style="color:blue">B64→</span> |
|||
{{out}} |
|||
<pre> |
|||
1: "To err is human, but to really foul things up you need a computer. |
|||
-- Paul R. Ehrlich" |
|||
</pre> |
</pre> |
||