(41C) Roll 2 Dice at Random

[Dieter]

(11-08-2018 06:34 AM)Gamo Wrote:  This is another implementation from my previous post on HP-11C but this one
use different RANDOM algorithm.
Here is the program to Roll Two Dice at Random.

Gamo, why does this program waste no less than four (!) data registers just for adding two random numbers?

In R01 you even store a value which is never recalled afterwards. Actually this program dues not require any registers at all – except the one for the seed.

Code:

LBL "2DICE"
XEQ 01
XEQ 01
10
/
+
FIX 1
RTN
...

The RNG looks interesting, but it can cause problems. Why? Try a seed of 0,006737947 or 0,0982735856 or 0,3328710837.

BTW, in an HP41 program you can simply write "FRC", "MOD" and "INT" instead of "XEQ FRC", "XEQ MOD" and XEQ INT".

Dieter