Help for this page

Select Code to Download

Select or download this

sub choose_weighted {
    my $weights  = shift;
...

    return $i;
}