Help for this page

Select Code to Download

Select or download this

sub genFixedSubsets
{
    my( $size, @set )= @_;
...
while(  @subset= $gen->()  ) {
    print "@subset\n";
}

Select or download this

$ subsets 3 5
3 2 1
4 2 1
...
5 3 2
5 4 2
5 4 3