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

[Gerald H]

A slightly improved version:

Code:

1.    LBL D
2.    CLVARS
3.    STO K
4.    x<>y
5.    STO L
6.    +
7.    x≠0?
8.    GTO F
9.    1
10.    x<>y
11.    RTN
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*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
F: LN = 94        H: LN = 49
I: LN = 25        J: LN = 21