RosettaCodeData/Task/Permutations/Perl/permutations-2.pl

6 lines
106 B
Perl

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