Help for this page

Select Code to Download

Select or download this

use Algorithm::Combinatorics qw(variations_with_repetition);

...
while (my $variant = $variations_iterator->next) {
    print "@$variant\n";
}

Select or download this
```
1 1 1
1 1 2
...
2 1 2
2 2 1
2 2 2
```