Post Reply 
(50g) OEIS A056524 & A056525: Palindromes with Even & Odd Number of Digits
01-13-2018, 10:08 AM
Post: #1
(50g) OEIS A056524 & A056525: Palindromes with Even & Odd Number of Digits
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

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
  ;
;
Find all posts by this user
Quote this message in a reply
Post Reply 




User(s) browsing this thread: 1 Guest(s)