HP 50g: Programming Problem: Integer Partition in Palindromic Integers

[Gerald H]

A slightly modified version of the programme to remove the occurrence of 0 in the partition if the input ends in 0:

Code:

P24U

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