Hi,
Looking at the combination script below, what must I do so that the output of
Round 1, Round 2 and Round 3 are identical.
Thanks.
##### script below ###########
#!/usr/bin/perl
use strict;
use warnings;
use Math::Combinatorics;
########################################################
{
my $ctr = 0;
sub get_numbers {
$ctr++;
my @combination_datas = qw(1 2 3 4 5 6 7);
my $combination_length = 6;
print "Round $ctr) \@combination_datas = @combination_datas\n";
my $combinat = Math::Combinatorics->new(count => $combination_length,
data => [@combination_datas],
);
while(my @combo = $combinat->next_combination){
print "@combo\n";
}
} #end sub
}#end
####################################################
my $ctr = 0;
while ($ctr < 3){
$ctr++;
get_numbers;
}
print "done\n";
