Help for this page

Select Code to Download


  1. or download this
    sub printsubsets1 {
  my ($prefix, @elemarray) = @_;
...
sub printsubsets { printsubsets1("",@_);}

printsubsets(qw(a b c d e));
  2. or download this
    sub printsubsets2 {
  my $stuff = join('',@_);
...

printsubsets2(qw(a b c d e));
  3. or download this
    sub initialmask {
  my $nelem = shift;
...
do {
  # blah blah blah $mask
} while (nextmask($mask));
  4. or download this
    --
@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/