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

[Gerson W. Barbosa]

(12-05-2018 02:07 AM)Didier Lachieze Wrote:  Seven steps, not including LBL and END:

Code:

00 { 19-Byte Prgm }
01▸LBL "FIB"
02 1
03 0
04 LBL 00
05 X<>Y
06 STO+ ST Y
07 DSE ST Z
08 GTO 00
09 END

It works also on the HP-41.

6 steps, 42S-only:

Code:


00 { 18-Byte Prgm }
01▸LBL "FIB"
02 1
03 LN
04▸LBL 00
05 RCL+ ST L
06 DSE ST Y
07 GTO 00
08 END

Apparently slightly faster, but not fast enough (at least on the real 42S).