(10C) (11C) Fibonacci Numbers (Tom Grydeland) (10C and 11C)

[Gerson W. Barbosa]

(05-15-2017 03:59 PM)grsbanks Wrote:  This also works for the HP-12C:

Code:

01-        1    (1)
02-       34    (x<>y)
03-        0    (0)
04-       34    (x<>y)
05-        1    (1)
06-       30    (-)
07-    44  0    (STO 0)
08-       33    (Rv)
09-       40    (+)
10-    43 36    (LSTx)
11-       34    (x<>y)
12-    45  0    (RCL 0)
13-    43 35    (x=0)
14- 43,33 16    (GTO 16)
15- 43,33 05    (GTO 05)
16-       33    (Rv)
17- 43,33 00    (GTO 00)

Saving one step:

Code:


01-    44  0    (STO 0)
02-        1    (1)
03-    43 23    (LN)
04-    43 36    (LSTx)
05-       34    (x<>y)
06-       40    (+)
07-        1    (1)
08- 44 30  0    (STO- 0)
09-       33    (Rv)
10-    45  0    (RCL 0)
11-    43 35    (x=0)
12- 43,33 15    (GTO 15)
13-       33    (Rv)
14- 43,33 04    (GTO 04)
15-       34    (x<>y)
16- 43,33 00    (GTO 00)

Further optimization is still possible.

Gerson.