I did not understand how to use the code.
Change
for each combination @c:
to
while ( my @c = $comboObj->next_combination){
and change
# emit combination here
to
print join(', ', @c) . "\n";
After reviewing your code and comparing I do see now how it works,
It was neither my code nor my post.
In reply to Re^5: Unique Combos with Math::Combinatorics
by ikegami
in thread Unique Combos with Math::Combinatorics
by ketema
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |