Help for this page

Select Code to Download


  1. or download this
    use List::Util qw/shuffle/;
sub pick {
    return if @_ != 2;
    my ($num, $count) = @_;
    (shuffle 1 .. $num)[0 .. $count-1];
}
  2. or download this
    my ($top, $ct, @samples) = (158, 8);
my $size = 50,000;

$#samples = $size;
$_ = [pick( $top, $ct)] for @samples;
  3. or download this
    my %sample;
$sample{join ',', pick($top, $ct)} = undef
    while $size > keys %sample;