Select Code to Download

# Powerset: the set of all subsets -- (for illustration only, not used
+ below)
sub powerset {
...

my $iter = iter_powerset(2,3,5,7,11);
print "@$_\n" while (@{$_ = $iter->()});