Path: 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

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\