HP Prime vs HP71 benchmark

[KeithB]

Here is the 71B program:

Code:


10 H=0
20 T=0
30 RANDOMIZE 1
40 S=TIME
50 T=T+1
60 X=RND^2 + RND^2
70 IF X<= 1 THEN H=H+1
80 IF MOD(T,10000) = 0 THEN DISP USING 90; T/1000, 4*H/T, TIME-S
90 IMAGE DD,"KPI:", D.DDDDD, "ET:",DDDD.D
100 GOTO 50

I have a FORTH module, so if you have a FORTH word to run, I would be glad to try.

ETA: I guess I could try assembler, too.