4 lines
97 B
Perl
4 lines
97 B
Perl
use ntheory "forcomb";
|
|
my @S = qw/a b c/;
|
|
forcomb { print "[@S[@_]] " } scalar(@S);
|
|
print "\n";
|