Help for this page
my $sum = 0; $biasbase{$_} = ($sum += $bias{$_}) foreach (reverse keys %bias);
while( my($k,$v) = each %bias and not defined $rand){ $rand = $k if rand($biasbase{$k}) < $v; }
www.com | www.net | www.org
No recent polls found