2023 in Base 37

[John Keith]

Just for fun, here are two programs for converting integers to and from strings representing the integers in any base up to base 62. The programs are for the HP49/50 with the ListExt Library.
In the strings:

The numbers 0..9 map to themselves
The numbers 10..35 map to A..Z
The numbers 36..61 map to a..z

The first program I→STR take an integer n on level 2 and an integer b on level 1 and returns a string representing n in base b.

Code:


\<< I\->BL NL\->S
    { 36. 61. 61. } CHR+
    { 10. 35. 55. } CHR+
    { 0. 9. 48. } CHR+
\>>

The next program STR→I does the inverse, taking a string on level 2 and b on level 1.

Code:


\<< SWAP
    { 48. 57. -48. } CHR+
    { 65. 90. -55. } CHR+
    { 97. 122. -61. } CHR+
    S\->NL SWAP BL\->I
\>>

For example, the input

257175174
62
I→STR

returns "HP50g"