Post Reply 
Yet another Fibonacci mini-challenge (HP-42S/Free42)
12-05-2018, 03:15 AM
Post: #5
RE: Yet another Fibonacci mini-challenge (HP-42S/Free42)
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
Find all posts by this user
Quote this message in a reply
Post Reply 


Messages In This Thread
RE: Yet another Fibonacci mini-challenge (HP-42S/Free42) - Thomas Klemm - 12-05-2018 03:15 AM



User(s) browsing this thread: 1 Guest(s)