Tripartite Palindromic Partition of Integer (HP 50g) Challenge

[Gerald H]

Here a suggestion for a more economical "PALIN" programme in 2old2randr's submission:

Code:

CKSUM: # 29625d

SIZE: 421.5

« DUP I→NL DUP SIZE
DUP 1. ==
  CASE
    THEN DROP2 0 0
    END DUP 7. <
    THEN "SML" SWAP
R→I + OBJ→
    END OVER NTYPE
→ num d n type
special d p1 p2 p3
    «
      CASE special
        THEN num p1
ALGO5
        END d p1 p2
p3 { "A1" "A2" "A3"
"A4" } type POS n 2
MOD AND { "A5" "A6"
} type POS n 2 MOD
NOT AND OR
        THEN ALGO1
        END type
HEAD "A" ==
        THEN ALGO2
        END n 2 MOD
        THEN ALGO3
        END ALGO4
      END
    »
  END
»