01-13-2018, 10:08 AM
Programme A056524 takes positive integer input N & returns the Nth even-digited palindromic number.
Programme A056525 takes positive integer input N & returns the Nth odd-digited palindromic number.
Together the 2 programmes produce all palindromic integers.
NB: 'EvalNoCK:_sup_ is PTR 25F29 & has been so at least from 1.19-6 on.
A056524
A056525
Programme A056525 takes positive integer input N & returns the Nth odd-digited palindromic number.
Together the 2 programmes produce all palindromic integers.
NB: 'EvalNoCK:_sup_ is PTR 25F29 & has been so at least from 1.19-6 on.
A056524
Code:
::
CK1&Dispatch
# FF
::
FPTR2 ^Z>S
DUP
'EvalNoCK:_sup_
xSREV
&$
FPTR2 ^S>Z
;
;
A056525
Code:
::
CK1&Dispatch
# FF
::
FPTR2 ^Z>S
DUP
'EvalNoCK:_sup_
xSREV
CDR$
&$
FPTR2 ^S>Z
;
;