08-15-2022, 11:46 AM
Takes a natural number N from the stack & returns A56525(N) to stack.
Nth odd digitted palindrome in natural order.
Preserves stack
https://oeis.org/A056525
Input of negative of odd digitted palindrome returns index in A56525.
Preserves stack.
Tail.
Erases first digit of stack level X.
Preserves stack.
Reverso.
Reverses the order of digits in stack level X.
eg 1234 becomes 4321.
Preserves stack.
Nth odd digitted palindrome in natural order.
Preserves stack
https://oeis.org/A056525
Input of negative of odd digitted palindrome returns index in A56525.
Preserves stack.
Code:
1. LBL O
2. x<0?
3. GTO B
4. STO A
5. LOG
6. IP
7. 10^x
8. STO S
9. CLx
10. RCL A
11. XEQ R
12. STO B
13. LOG
14. IP
15. 10^x
16. STO T
17. RCL- S
18. x=0?
19. GTO J
20. CLx
21. T*10
1. LBL J
2. RCL+ B
3. XEQ T
4. STO B
5. CLx
6. A*S+B
7. RTN
1. LBL B
2. ABS
3. STO A
4. CLx
5. IDIV(A:ALOG(IP(LOG(A)/2)))
6. RTN
O: LN = 67
J: LN = 26
B: LN = 44
Tail.
Erases first digit of stack level X.
Preserves stack.
Code:
1. LBL T
2. x=0?
3. RTN
4. STO N
5. LOG
6. IP
7. 10^x
8. STO R
9. CLx
10. RMDR(N:R)
11. RTN
T: LN = 42
Reverso.
Reverses the order of digits in stack level X.
eg 1234 becomes 4321.
Preserves stack.
Code:
1. LBL R
2. STO N
3. CLx
4. STO R
1. LBL S
2. CLx
3. 10*R+RMDR(N:10)
4. STO R
5. CLx
6. IDIV(N:10)
7. STO N
8. x≠0?
9. GTO S
10. CLx
11. RCL R
12. RTN
R: LN = 12
S: LN = 61