5 lines
106 B
Perl
5 lines
106 B
Perl
use ntheory qw/forperm/;
|
|
my @tasks = (qw/party sleep study/);
|
|
forperm {
|
|
print "@tasks[@_]\n";
|
|
} @tasks;
|