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