RosettaCodeData/Task/Power-set/Perl/power-set-3.pl

use ntheory "forcomb";
my @S = qw/a b c/;
for $k (0..@S) {
  # Iterate over each $#S+1,$k combination.
  forcomb { print "[@S[@_]]  " } @S,$k;
}
print "\n";
Another update from ingydotnet^djgoku 2015-11-18 06:14:39 +00:00			`use ntheory "forcomb";`
June 2018 Update 2018-06-22 20:57:24 +00:00			`my @S = qw/a b c/;`
Another update from ingydotnet^djgoku 2015-11-18 06:14:39 +00:00			`for $k (0..@S) {`
			`# Iterate over each $#S+1,$k combination.`
			`forcomb { print "[@S[@_]] " } @S,$k;`
March 2014 update 2014-04-02 16:56:35 +00:00			`}`
Another update from ingydotnet^djgoku 2015-11-18 06:14:39 +00:00			`print "\n";`