[prev in list] [next in list] [prev in thread] [next in thread] 

List:       perl-win32-porters
Subject:    Fwd: Random Numbers
From:       Jarrett Malone <ljmalone () yahoo ! com>
Date:       2003-06-24 0:00:43
[Download RAW message or body]


 
> 
>  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-Porters mailing list
> Perl-Win32-Porters@listserv.ActiveState.com
> To unsubscribe:
http://listserv.ActiveState.com/mailman/mysubs


__________________________________
Do you Yahoo!?
SBC Yahoo! DSL - Now only $29.95 per month!
http://sbc.yahoo.com
_______________________________________________
Perl-Win32-Porters mailing list
Perl-Win32-Porters@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
[prev in list] [next in list] [prev in thread] [next in thread]