Article View: comp.sys.amiga.tech
Article #1246Re: ARexx psuedo-random number generator
From: Bernie Cosell
Date: Wed, 13 Sep 1989 02:28
Date: Wed, 13 Sep 1989 02:28
32 lines
1548 bytes
1548 bytes
In article <19504@unix.cis.pitt.edu> ejkst@unix.cis.pitt.edu (Eric J. Kennedy) writes:
I changed your program to have the following difference:
}r=time('S')
...
}do index=1 to 10000
} r=random(1,45,r)
} hist.r = hist.r + 1
r=time('S')
randu(r)
...
do index=1 to 10000
r=random(1,45)
hist.r = hist.r + 1
end
And I get the following result:
1 239 2 204 3 196 4 206 5 247
6 221 7 205 8 200 9 244 10 207
11 191 12 220 13 223 14 242 15 240
16 245 17 224 18 229 19 225 20 227
21 223 22 230 23 218 24 220 25 257
26 224 27 208 28 225 29 231 30 235
31 216 32 203 33 229 34 205 35 212
36 235 37 193 38 239 39 232 40 236
41 229 42 224 43 209 44 211 45 221
/Bernie\
Technical Details
Message-ID:
<45531@bbn.COM>Path:
arc1-ca.pugleaf.net!utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!uwm.edu!csd4.csd.uwm.edu!bbn!bbn.com!cosellReferences:
<19504@unix.cis.pitt.edu>Show Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!uwm.edu!csd4.csd.uwm.edu!bbn!bbn.com!cosell From: cosell@bbn.com (Bernie Cosell) Newsgroups: comp.sys.amiga.tech Subject: Re: ARexx psuedo-random number generator Summary: Not so pseudo Keywords: ARexx Random Number Generator Message-ID: <45531@bbn.COM> Date: 13 Sep 89 02:28:55 GMT References: <19504@unix.cis.pitt.edu> Sender: news@bbn.COM Reply-To: cosell@BBN.COM (Bernie Cosell) Organization: Bolt Beranek and Newman Inc., Cambridge MA Lines: 32