Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 188
  • Last Modified:

Random numbers

I need a section of code to generate a random number between 0 and some value n and then round it down
0
jedimike
Asked:
jedimike
  • 2
1 Solution
 
b2piCommented:
'round it down' is a bit confusing.

Basically, though, you first need to set a seed if your perl is before
v 5.004 (If you don't, you'll get random numbers, but everytime you
run  the program, you could get about the same random numbers).  Just
to be safe, then


srand( time ^ $$ );

(There are many quibbles that the above might not be random enough.
Chances are, it is. If not, go to www.perl.com and search for
TrulyRandom)

Having seeded, you get a random value r (0 <= r < y ) by calling

$r = rand(y);

if n is a relatively large integer, then, you could do

$r = int(rand(n))

0
 
ozoCommented:
I would prefer ( time + $$ ) as a seed over ( time ^ $$ )
If $$ has a tendancy to be increasing, it could be easy for ( time ^ $$ ) to be tha same on subsequent runs.
(Using 5.004 may be even more preferred)
0
 
b2piCommented:
That requires that $$ is increasing at about the same rate as is time,
so $$ is approximately uniformly (approximately uniformly? Mea culpa,
mea maxima culpa) increasing by 1 per second.  If I remember my
combinatorics correctly (backed up by the perldoc page on srand) that
_still_ gives a 1 in 3 chance of being identical, nu? So if you're on
a machine that is averaging 1 pid per second (no more, no less), then
you've a 1 in 3 chance of problems.  If one's that worried about it,
best go to TrulyRandom, or, my all time favorite, make use of
http://lavarand.sgi.com 
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now