(38G) Palindromic Partition of an Integer

+- HP Forums (https://www.hpmuseum.org/forum)
+-- Forum: HP Software Libraries (/forum-10.html)
+--- Forum: General Software Library (/forum-13.html)
+--- Thread: (38G) Palindromic Partition of an Integer (/thread-20921.html)

(38G) Palindromic Partition of an Integer - Gerald H - 11-29-2023 06:22 AM

For integer input on HOME screen the programme P24U returns a palindromic partition in Ans & stored in L1.

Improvements welcome & definitely possible.

Code:
P24U

Ans►N:
IF Ans<10
THEN
{N}►L1:
ELSE
N:
RUN N2DS:
L2(1):
IF Ans
THEN
{Ans}►L1:
ELSE
SYSEVAL 532268:
END:
SUB L2;L2;2;12:
FOR I=1 TO SIZE(L2) STEP 1;
 L2(I):
Ans►H:
IF Ans
THEN 
IF Ans>1
THEN
11-Ans:
END:
CONCAT(L1,{Ans,10^I*H-Ans})►L1:
END:
END:
END:
REVERSE(SORT(L1))►L1: 

N2DS

Ans►T:
SYSEVAL 532278:
FOR I=1 TO INT(LOG(T)+1) STEP 1;
 T MOD 10:
CONCAT(L2,{Ans})►L2:
INT(T/10)►T:
END: