Base64 encode data: Difference between revisions
Content added Content deleted
(Add Standard ML version using smlnj-lib) |
(added RPL) |
||
Line 2,007: | Line 2,007: | ||
bXkgc3RyaW5n |
bXkgc3RyaW5n |
||
my string |
my string |
||
</pre> |
|||
=={{header|RPL}}== |
|||
{{works with|RPL|HP-49C}} |
|||
« 3 OVER SIZE 3 MOD DUP 3 IFTE - |
|||
SWAP "" |
|||
1 PICK3 SIZE '''FOR''' j |
|||
OVER j DUP SUB NUM |
|||
256 + R→B →STR 4 OVER SIZE 1 - SUB + |
|||
'''NEXT''' |
|||
NIP "0000" 1 4 PICK 2 * SUB + |
|||
» '<span style="color:blue">STR→BITS</span>' STO <span style="color:grey">''@ ( "string" → fill "bits" )''</span> |
|||
« BIN 8 STWS <span style="color:blue">STR→BITS</span> |
|||
"" |
|||
1 PICK3 SIZE '''FOR''' j |
|||
OVER j DUP 5 + SUB "b" + "#" SWAP + STR→ B→R |
|||
{ 25 51 61 62 63 } OVER ≥ 1 POS |
|||
{ 65 71 -4 -19 -16 } SWAP GET + CHR + |
|||
6 '''STEP''' |
|||
NIP "==" 1 4 ROLL SUB + |
|||
» '<span style="color:blue">→B64</span>' STO |
|||
"Hello, RPL!" <span style="color:blue">→B64</span> |
|||
"To err is human, but to really foul things up you need a computer.\n -- Paul R. Ehrlich" <span style="color:blue">→B64</span> |
|||
{{out}} |
|||
<pre> |
|||
2: "SGVsbG8sIFJQTCEA==" |
|||
1:"VG8gZXJyIGlzIGh1bWFuLCBidXQgdG8gcmVhbGx5IGZvdWwgdGhpbmdzIHVwIHlvdSBuZWVkIGEgY29tcHV0ZXIuCiAgICAtLSBQYXVsIFIuIEVocmxpY2g=" |
|||
</pre> |
</pre> |
||