Threaded Mode | Linear Mode

Gerald H · (This post was last modified: 12-11-2022 05:11 AM by Gerald H.)

Edit 2022-12-11: Programme slightly improved

For integer input N > -1 the programme returns the Nth element in the sequence

https://oeis.org/A035327

Not a masterpiece but does use ←A.

Code:

«

  « DUP 2 <

    IF

    THEN 1 

    ELSE 2 IDIV2

SWAP ←A EVAL 2 * 1

+

    END SWAP -

  » → ←A

  « ←A EVAL

  »

»

Improvements welcome.