Help for this page
sub genFixedSubsets { my( $size, @set )= @_; ... while( @subset= $gen->() ) { print "@subset\n"; }
$ subsets 3 5 3 2 1 4 2 1 ... 5 3 2 5 4 2 5 4 3
www.com | www.net | www.org
No recent polls found