Programming Challenge: Palindromic Numbers on HP 50g

[Gerald H]

Very nice, Thomas, & here a slightly altered version which will deal with the entry 98765432167 & return the correct answer!

By the way, SAME is much faster than ==.

NTOK

Code:

« DUP 10 <=
  IF
  THEN 1 -
  ELSE DUPDUP 2
IQUOT SIZE R→I 1 -
10 SWAP ^ SWAP OVER
11 * >=
    IF
    THEN 10 * SWAP
OVER - SWAP OVER *
SWAP NREV +
    ELSE SWAP OVER
- DUP 10 IQUOT NREV
UNROT * +
    END
  END
»

NREV

Code:

« 0
  DO 10 * OVER 10
MOD + SWAP 10 IQUOT
SWAP OVER 0 SAME
  UNTIL
  END NIP
»