[VA] HP-71B Mini-challenge: Qualifying for a job

[ThomasF]

(09-17-2022 07:23 AM)J-F Garnier Wrote:  

(09-17-2022 06:14 AM)ThomasF Wrote:  You could eliminate 2 bytes by the following trick:

Code:

1 DEF FNZ @ DEF FNO=1

No, it's an illusion, it doesn't work as expected.

Hi again,

Hm, maybe I missed something?
I tried with your example, and rearranged it a bit (moved FNZ to the beginning):

Code:

0001 DEF FNZ @ DEF FNS(C) @ IF C>0 THEN FNS=FNS(C-1)+RND
0002 END @ DEF FNG=FNS(8)-4 @ DEF FNO=1 @ DEF FND=INT(RND*6)+1

0005 DEF FNG @ DEF FNT=5
0010 DISP TIME$ @ PAUSE

That worked fine, even when inserting line 5 and 10, sinced I expected the END at beginning of line 2 would act as a "DEF END", ie. executing "FNZ" will not display the time (only 0), but FNG sure will (show the time) but not FNT (will just show 5) ...

Cheers,
Thomas