Threaded Mode | Linear Mode

Gerald H · (This post was last modified: 09-19-2017 06:30 AM by Gerald H.)

For natural number input N the programme returns the Nth element of the series

https://oeis.org/A228297

Code:

::

  CK1&Dispatch

  # FF

  ::

    DUPDUP

    Z5_

    FPTR2 ^ZQUOText

    FPTR2 ^RSUBext

    BEGIN

    DUPDUP

    Z0_

    SWAP

    BEGIN

    Z5_

    FPTR2 ^ZQUOText

    DUPROT

    FPTR2 ^RADDext

    SWAPDUP

    Z0_

    EQUAL

    UNTIL

    DROP

    FPTR2 ^RADDext

    3PICK

    Z<

    WHILE

    ::

      Z1_

      FPTR2 ^RADDext

    ;

    REPEAT

    SWAPDROP

  ;

;