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

[Gerald H]

A much reduced version of my programme & faster:

Size: 300.5 Bytes

CkSum: # 933Ch

Code:

« 0 SWAP
  WHILE SWAP 1 + SWAP DUPDUP →STR DUPDUP SREV SAME
    IF
    THEN DROP 0.
    ELSE DUP SREV OBJ→ 1 ==
      IF
      THEN DROP 1 - DUP
      ELSE 1. OVER SIZE 2. / DUP 5. ROLLD DUP FP 4. ROLLD SUB DUP SREV ROT
        IF
        THEN TAIL
        END + OBJ→ DUP UNROT <
        IF
        THEN DROP OVER →STR 1. PICK3 SUB OBJ→ 1 - →STR DUP SREV PICK3 FP
          IF
          THEN TAIL
          END + OBJ→
        END
      END NIP DUP2 -
    END
  REPEAT DUP 4. ROLLD -
  END DROP SWAP DUPDUP 2. + ROLLD →LIST SWAP →TAG
»