09-26-2022, 05:34 PM
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).
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