(49G) OEIS A178225: Test for Binary-Palindromicity

[Gerald H]

Shorter:

Size: 92.5

CkSum: # 1249h

Code:

::
  CK1&Dispatch
  # FF
  ::
    FPTR2 ^DupQIsZero?
    casedrop
    %1
    FPTR2 ^Z>ZH
    FPTR2 ^ZBits
    DUPUNROT
    #2/
    DUP
    ZERO_DO
    DROP
    SWAP#1-SWAP
    OVER
    FPTR2 ^ZBit?
    SWAPINDEX@
    FPTR2 ^ZBit?
    ROT
    EQUAL
    DUP
    ?SKIP
    ExitAtLOOP
    LOOP
    ROTROT2DROP
    COERCEFLAG
  ;
;