2023 in Base 37

[C.Ret]

Hello every one,

(01-06-2023 08:25 PM)John Keith Wrote:  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[/code]

Thanks for the clarification, I was wondering what to put in the conversion table after the 36th symbol, aka the Big Z character.


For the one who only have \(102474081_{37}\) (and only one):

First store the character conversion table as a string into the 'CC' variable:

"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" 'CC' STO

Note how easy is this entry to key-in since all these characters are ordered on the two keyboards and didn't need any shift-key, except for one press on the lc key to switch into lower-case entry mode.

Second enter one or both of the conversion code depending in which direction you need to convert. Both code take two arguments from the stack and return one result

« → b « "" OVER LOG b LOG / FLOOR 0 FOR k
         SWAP b k ^ MOD LAST / IP ROT CC ROT 1 + DUP SUB +
       -1 STEP 
       SWAP DROP » »                                   ‘→BSTR’ STO

n b →BSTR convert decimal-based integer n into b-base string Str.
For example, 2023 37 →BSTR display "1HP"


« → s b « 0 
        1 s SIZE FOR k 
                b * CC s k k SUB POS 1 - 
                IF DUP 0 < OVER b ≥ OR 
                   THEN "’" s k k SUB + "’ Bad Char" + KILL 
                   ELSE + END 
        NEXT » »                                     ‘BSTR→’ STO

Str b BSTR→ convert b-based character string Str into real integer n (or display error message when an illegal character is found anywhere in the string Str).
For example, "HP50g" 62 BSTR→ return 257175174.

Have had a lot of fun thanks !


Since it is the season, I wish you all \(77490_{50}\) \(81179749_{51}\) \( 80140568_{52}\) \(2G7_{28}\) !