Help for this page

Select Code to Download


  1. or download this
    my @n = (-25, 14, 50, 20, -7, -8, -10);
my $max = 2**@n;
for (my $i = 0; $i < $max; ++$i) {
...
    print "[@used] = 0\n";
  }
}
  2. or download this
    my ($bits, $j, @used) = ($i, 0);
while ($bits) {
  push @used, $n[$j] if $bits & 1;
  $bits >>= 1, ++$j;
}
  3. or download this
    for (
  my ($bits, $j, @used) = ($i, 0);
  $bits;
...
) {
  push @used, $n[$j] if $bits & 1;
}