Yet another Fibonacci mini-challenge (HP-42S/Free42)

[Thomas Klemm]

The Obvious

Code:

00 { 28-Byte Prgm }
01 LBL "FIB"
02 5
03 SQRT
04 1
05 +
06 2
07 ÷
08 X<>Y
09 Y↑X
10 5
11 SQRT
12 ÷
13 0.5
14 +
15 IP
16 END

---

The Short

5
SQRT
STO 01
1
+
2
÷
STO 00
0.5
ST0 02

Code:

00 { 17-Byte Prgm }
01 LBL "FIB"
02 RCL 00
03 X<>Y
04 Y↑X
05 RCL÷ 01
06 RCL+ 02
07 IP
08 END

---

The Forecast

We assume the default ∑REG 11 (or whatever but > 02).

EXPF
CL∑
RCL 01
1/X
0
∑+
RCL 00
RCL÷ 01
1
∑+

Code:

00 { 13-Byte Prgm }
01 LBL "FIB"
02 FCSTY
03 RCL+ 02
04 IP
05 END

---

Thanks for the challenge. That was fun!

Cheers
Thomas