Re: Testing a random integer generator (Answered)

*To*: mathgroup at smc.vnet.net*Subject*: [mg130391] Re: Testing a random integer generator (Answered)*From*: Clif McInnis <c_mcinnis at hotmail.com>*Date*: Mon, 8 Apr 2013 00:04:56 -0400 (EDT)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com*Delivered-to*: l-mathgroup@wolfram.com*Delivered-to*: mathgroup-newout@smc.vnet.net*Delivered-to*: mathgroup-newsend@smc.vnet.net*References*: <kjqjln$37o$1@smc.vnet.net>

I had gotten a message that the post had taken too long to upload, so I thought that it was not here. I found a way to make the "test" work and got the results that I expected. In the event that anyone else would be interest ed the code that I used is as follows: Peace -- Clif Initialization /. Initialization :> {x = 0, p = 0, q = 0, mne = 0, mnn = 0, lte = 0, ltn = 0} While[x < 100000, { Clear[p, q], q = RandomInteger[{1, 4}], If[q < 4, {p = RandomInteger[{10, 20}], q = RandomInteger[], If[q == 1, q = p, q = RandomInteger[{10, 20}]]}, {p = RandomInteger[{1, 9}], q = RandomInteger[], If[q == 1, q = p, q = RandomInteger[{1, 9}]]}],(*Print[p," and ", q],*) If [p > 9, {If[p == q, mne += 1, mnn += 1]}, {If[p == q, lte += 1, ltn += 1]}]}; x++]; Print[mne/x, Space[10], mnn/x, Space[10], lte/x, Space[10], ltn/x ]