Tripartite Palindromic Partition of Integer (HP 50g) Challenge

[Gerald H]

Did the altered version actually produce any incorrect partitions?

The snippet

Code:

IF d SWAP GET 0 ==  SWAP d SWAP 1 + GET 0 == OR THEN 1
                ELSE 0
                END

can be replaced by

Code:

d SWAP GET 0 ==  SWAP d SWAP 1 + GET 0 == OR

Concerning speed of programmes I have changed all integers in the small numbers programmes to reals, resulting in much shorter processing times.