aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

2016 Update

Browse source
This commit is contained in:
Tina Müller 2016-12-05 22:15:40 +01:00
parent 948b86eafa
commit dcf5d15da3
7965 changed files with 139854 additions and 31002 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Task/Permutations/Perl-6/permutations-3.pl6
View file

@ -1,4 +1,4 @@
sub permute(@items) {
sub permute(+@items) {
my @seq := 1..+@items;
gather for (^[*] @seq) -> $n is copy {
my @order;
@ -7,7 +7,7 @@ sub permute(@items) {
$n div= $_;
}
my @i-copy = @items;
take [ map { @i-copy.splice($_, 1) }, @order ];
take map { |@i-copy.splice($_, 1) }, @order;
}
}
.say for permute( 'a'..'c' )