(41) Fibonacci Decomposition (integer)

[Thomas Klemm]

It's easy to translate the program for the HP-15C:

Code:

   001 {           0 } 0
   002 {       44 25 } STO I
   003 {          34 } x↔y
   004 {           1 } 1
   005 {    42 21  0 } f LBL 0
   006 {    43 30  7 } g TEST x>y
   007 {       22  1 } GTO 1
   008 {    44 40 25 } STO + I
   009 {    42  4 25 } f Χ↔ I
   010 {       22  0 } GTO 0
   011 {    42 21  1 } f LBL 1
   012 {    42  4 25 } f Χ↔ I
   013 {          31 } R/S
   014 {          30 } −

Only the usage slightly changes.

Example

CLEAR PRGM
65

R/S
55.0000

R/S
10.0000

R/S
8.0000

R/S
2.0000

R/S
2.0000

R/S
0.0000