Select Code to Download

use Algorithm::Loops qw( NestedLoops );

...
        if  @ARGV;
} while(  @subSet= @set[ $iter->() ]  );
print "$count subsets for $size in ", time()-$start, " secs.$/";

sub powerSetGen3 {
    my $end= shift(@_) - 1;
...
        return @idx;
    };
}