Perl-Sensitive Sunglasses PerlMonks

### Re^3: Challenge: Generate fixed size combination across groups without duplicates

by Util (Priest)
 on Nov 17, 2011 at 02:56 UTC ( #938508=note: print w/replies, xml ) Need Help??

I arrived at the same solution:
use Algorithm::Loops; use Math::Combinatorics; my \$fixed_size = 2; my @groups = ( [qw( A B C )], [qw( 1 2 3 4 )], [qw( yellow blue green )], [qw( tiny small medium large gigantic )], ); for my \$fixed_size_groups ( combine( \$fixed_size, @groups ) ) { Algorithm::Loops::NestedLoops \$fixed_size_groups, sub { print "@_\n"; }; }
• Comment on Re^3: Challenge: Generate fixed size combination across groups without duplicates

Replies are listed 'Best First'.
Re^4: Challenge: Generate fixed size combination across groups without duplicates
by ikegami (Pope) on Nov 17, 2011 at 10:14 UTC
I got the same. ++
Re^4: Challenge: Generate fixed size combination across groups without duplicates
by Anonymous Monk on Dec 11, 2012 at 11:39 UTC

I used you code for my own problem and it worked fine in the beginning but the moment I add another array to @groups the order of the arrays changes intern.I have little experiences with subs so I don't know how to change the code to make sure the order stays the same?

my @groups=( [qw( yes no 0 )], [qw( yes all 0 )], [qw( all stop 0 )], [qw( 1 0 )], [qw( 1 0 )], ); my @names=('rscode','nonsyn','aac','splice','var'); my \$fixed_size=scalar(@names); my (\$combo,\$count)= create_combo(\$fixed_size,\@groups); sub create_combo { my @array; my \$count=0; my \$fixed_size= \$_[0]; my \$groups=\$_[1]; for my \$fixed_size_groups ( combine( \$fixed_size, @{\$groups} ) ) { Algorithm::Loops::NestedLoops \$fixed_size_groups, sub { push @array,@_; print "@_\n"; \$count++; }; return (\@array,\$count); } }

It gives as result

1 all 1 yes yes 1 all 1 yes all 1 all 1 yes 0 ....

which are the right combinations but not the right order of the elements! Any help is much appreciated.

Create A New User
Node Status?
node history
Node Type: note [id://938508]
help
Chatterbox?
 [hippo]: Can anybody suggest a scalar value of \$x for which (\$x && !length \$x) is true? [Corion]: hippo: If you have a Unicode-wise Perl then likely some zero-width characters in \$x would work. Maybe \$x = "\x{200b}" works.

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (8)
As of 2017-07-27 13:24 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
I came, I saw, I ...

Results (413 votes). Check out past polls.