12-31-2019, 05:50 PM
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.
Improvements welcome.
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.