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