Help for this page

Select Code to Download


  1. or download this
    use Algorithm::Loops qw( NestedLoops );
    
    ...
            if  @ARGV;
    } while(  @subSet= @set[ $iter->() ]  );
    print "$count subsets for $size in ", time()-$start, " secs.$/";
    
  2. or download this
    sub powerSetGen3 {
        my $end= shift(@_) - 1;
    ...
            return @idx;
        };
    }