Programming exercise (RPL/RPN) - Reciprocal Fibonacci Constant

[xerxes]

FX-180P solution using K vars only:

Code:

 01  Kout3
 02  x<->K2
 03  Kin+3
 04  Kout3
 05  1/x
 06  Kin+4
 07  1
 08  Kin-1
 09  Kout1
 10  x>0
 11  Kout4

Usage example: KAC 5 Kin1 1 Kin2 P1

or using the pending operator method:

Code:

 01  Kout3
 02  x<->y
 03  =
 04  Kin3
 05  1/x
 06  Kin+2
 07  1
 08  Kin-1
 09  Kout1
 10  x>0
 11  Kout2

Usage example: KAC 5 Kin1 1 + + P1