use Math::Combinatorics; my @cols = (0..12); my @combin; my @data = ('A'..'Z'); my $combinations = Math::Combinatorics->new(count => 10, data => [@col +s]); while (@combin = $combinations->next_combination()) { print join("\t", @data[@combin]), "\n"; }
In reply to Re^2: what on earth is going on?
by inman
in thread what on earth is going on?
by Angharad
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |