Let me apologize is advance if this is
wrong list or has already been addressed etc.
rand seems to produce an abnormally high
number of zeros, like 20 or 30 per million
active perl binary v5.8.0 Build 804
$t = 0;
for($k=0;$k<1000000;$k++) {
$t = rand(1);
if ($t == 0.0) { print "tt $t\n"; }
}
Thanks -- Jarrett
__________________________________
Do you Yahoo!?
SBC Yahoo! DSL - Now only $29.95 per month!
http://sbc.yahoo.com
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
