Programming Challenge: Palindromic Numbers on HP 50g

[Thomas Okken]

HP-42S version of my program:

Code:

00 { 85-Byte Prgm }
01▸LBL "PALIN"
02 10
03 X<>Y
04 X>Y?
05 GTO 00
06 1
07 -
08 RTN
09▸LBL 00
10 RCL ST X
11 2
12 ÷
13 LOG
14 IP
15 10↑X
16 X<>Y
17 11
18 RCL× ST Z
19 X≤Y?
20 GTO 01
21 R↓
22 RCL- ST Y
23 ×
24 STO 00
25 LASTX
26 10
27 ÷
28 IP
29 XEQ "REV"
30 RCL+ 00
31 RTN
32▸LBL 01
33 R↓
34 X<>Y
35 10
36 ×
37 X<>Y
38 RCL- ST Y
39 X<>Y
40 RCL× ST Y
41 STO 00
42 R↓
43 XEQ "REV"
44 RCL+ 00
45 END

00 { 29-Byte Prgm }
01▸LBL "REV"
02 0
03 X<>Y
04▸LBL 00
05 RCL ST X
06 10
07 STO× ST T
08 STO÷ ST Z
09 MOD
10 STO+ ST Z
11 R↓
12 IP
13 X≠0?
14 GTO 00
15 R↓
16 END

5000 XEQ "PALIN" => 4000004 in 1.23 seconds (HP-42S).

Of course it's faster in Free42 or in a DM42, and then you can get palindromes up to 34 digits.

98765432167 XEQ "PALIN" => 887654321676123456788 in 0.01 seconds (DM42).