Help for this page

Select Code to Download

Select or download this

#! perl -slw
use strict;
...
    print "\nResults for $N picks (scale:$scale)\n\t",
        join "\t\t\t", map $stats{ $_ } *100 / $N, @items;
}

Select or download this

c:\test>weightedPick.pl -N=1e3
Required weights(%):
...
Results for 1e6 picks (scale:100)
        20.1913                 32.0977                 47.711