(33s) Double Deck Descriptor: A 2-level Description of Input

[Gerald H]

Double Deck Descriptor (DDD)

Irritated by the inadequacies of DESCRIPTOR

https://www.hpmuseum.org/forum/thread-18866.html

I now present the DDD.

For input

0
22367899

the programme returns

211112
987632

to be read as

291817161322

to be read as

two 9s one 8 one 7 one 6 one 3 two 2s.

Limitations: No particular digit may appear more than 9 times in the combination of the two levels - results become incoherent.

The initial zero on stack level Y is needed as a starter - indeed, it could be replaced by any number, but the result would be questionable.

If the programme is now again activated, you get a description of

291817161322

& so on.

[i] is my representation of indirect (i).

Code:

1.    LBL D
1.    CLVARS
2.    STO K
3.    x<>y
4.    STO L
5.    +
6.    x≠0?
7.    GTO E
8.    1
9.    x<>y
10.    RTN
1.    LBL E
2.    CLx
3.    RCL K
4.    RCL+ L
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.    RCL L
11.    x=0?
12.    GTO I
13.    CLx
14.    RMDR(L:10)+1
15.    STO i
16.    SGN
17.    STO+ [i]
18.    CLx
19.    IDIV(L:10)
20.    STO L
1.    LBL I
2.    CLx
3.    IDIV(K:10)
4.    STO K
5.    GTO F
1.    LBL G
2.    CLx
3.    10
4.    STO i
5.    CLx
6.    STO T
7.    STO U
1.    LBL H
2.    CLx
3.    RCL [i]
4.    x=0?
5.    GTO J
6.    CLx
7.    10^(1+IP(LOG([i])))*U+[i]
8.    STO U
9.    CLx
10.    10* T+i-1
11.    STO T
1.    LBL J
2.    DSE i
3.    GTO H
4.    CLx
5.    RCL U
6.    RCL T
7.    RTN

D: LN = 45        G: LN = 33
E: LN = 12        H: LN = 66
F: LN = 94        J: LN = 21
I: LN = 25