(11C) Roll "Four" Dice at Random

[Thomas Klemm]

(10-15-2018 07:48 AM)Thomas Klemm Wrote:  However if you want to use RAN# only once (…) you can use this translation of my program for the HP-42S

It turns out that multiplying the random number by 6⁴ and then translating the integer part to base 6 is the same as multiplying it continuously by 6, chopping off the integer part and continue with the remainder.

Thus just forget about that program and use this instead:

Code:

001▸LBL D
002 4
003 STO I
004 RAN#
005▸LBL 0
006 6
007 *
008 +
009 INT
010 LSTx
011 FRAC
012 DSE
013 GTO 0
014 R↓
015 RTN

But then it's slightly longer and a bit biased so rather don't use it at all.

Cheers
Thomas