Post Reply 
(50g) OEIS A007931: Logic Binary Sequence
09-15-2017, 05:46 AM
Post: #1
(50g) OEIS A007931: Logic Binary Sequence
For natural number input N the programme returns the Nth element of the sequence

https://oeis.org/A007931

Size: 102.5

CkSum: # 22764d

Code:
::
  CK1&Dispatch
  # FF
  ::
    DUP
    ZINT 1
    Z<
    caseSIZEERR
    NULL$SWAP
    ZINT 1
    FPTR2 ^RADDext
    BEGIN
    ZINT 2
    FPTR2 ^ZDIVext
    FPTR2 ^Z2BIN
    BINT49
    #+
    #>CHR
    ROTSWAP
    >H$
    SWAPDUP
    ZINT 0
    EQUAL
    UNTIL
    DROP
    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)