(33s) DESCRIPTOR: 129663 → 1926131211

[Gerald H]

For natural number input, DESCRIPTOR returns a description of that integer, eg for input

104449

the rpogramme returns

19341110

to be read as

one 9 three 4s one 1 one 0.

Limitation: The programme works correctly only if the input contains less than seven different figures.

Code:

1.    LBL D
2.    x=0?
3.    GTO G
4.    CLx
5.    10
6.    RTN
7.    LBL E
8.    CLVARS
9.    STO K
1.    LBL F
2.    x=0?
3.    GTO G
4.    CLx
5.    RMDR(K:10)+1
6.    STO i
7.    SGN
8.    STO+ [i]
9.    CLx
10.    IDIV(K:10)
11.    STO K
12.    GTO F
1.    LBL G
2.    CLx
3.    10
4.    STO i
5.    CLx
6.    STO T
1.    LBL H
2.    CLx
3.    RCL [i]
4.    x=0?
5.    GTO J
6.    CLx
7.    10*T+[i]
8.    STO T
9.    CLx
10.    10* T+i-1
11.    STO T
1.    LBL J
2.    DSE i
3.    GTO H
4.    CLx
5.    RCL T
6.    RTN

D: LN = 30        G: LN = 30
E: LN = 9        H: LN = 49
F: LN = 58        J: LN = 18