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

5
Task/Sorting-algorithms-Gnome-sort/Perl-6/sorting-algorithms-gnome-sort.pl6
View file

@ -1,4 +1,4 @@
sub gnome_sort (@a is rw) {
sub gnome_sort (@a) {
my ($i, $j) = 1, 2;
while $i < @a {
if @a[$i - 1] <= @a[$i] {
@ -6,7 +6,8 @@ sub gnome_sort (@a is rw) {
}
else {
(@a[$i - 1], @a[$i]) = @a[$i], @a[$i - 1];
--$i or ($i, $j) = $j, $j + 1;
$i--;
($i, $j) = $j, $j + 1 if $i == 0;
}
}
}