fix

ash · Jun 28, 2019 · cee5057 · cee5057
1 parent 27c6f16
commit cee5057
Show file tree

Hide file tree

Showing 4 changed files with 4 additions and 4 deletions.
diff --git a/sort/odd-even-sort-1.pl6 b/sort/odd-even-sort-1.pl6
@@ -8,7 +8,7 @@ sub odd-even-sort(@data) {
                 @data[$i, $i + 1].=reverse;
             }
         }
-        loop ($i = 1; $i < @data - 1; $i += 2) {
+        loop ($i = 1; $i < @data; $i += 2) {
             if [>] @data[$i, $i + 1] {
                 $done = False;
                 @data[$i, $i + 1].=reverse;

diff --git a/sort/odd-even-sort-2.pl6 b/sort/odd-even-sort-2.pl6
@@ -3,7 +3,7 @@ sub odd-even-sort(@data) {
         loop (my $i = 0; $i < @data - 1; $i += 2) {
             @data[$i, $i + 1].=reverse if [>] @data[$i, $i + 1];
         }
-        loop ($i = 1; $i < @data - 1; $i += 2) {
+        loop ($i = 1; $i < @data; $i += 2) {
             @data[$i, $i + 1].=reverse if [>] @data[$i, $i + 1];
         }
     }

diff --git a/sort/odd-even-sort-3.pl6 b/sort/odd-even-sort-3.pl6
@@ -5,7 +5,7 @@ sub odd-even-sort(@data) {
         loop (my $i = 0; $i < @data - 1; $i += 2) {
             $done--, @data[$i, $i + 1].=reverse if [>] @data[$i, $i + 1];
         }
-        loop ($i = 1; $i < @data - 1; $i += 2) {
+        loop ($i = 1; $i <= @data; $i += 2) {
             $done--, @data[$i, $i + 1].=reverse if [>] @data[$i, $i + 1];
         }
     }

diff --git a/sort/odd-even-sort-4.pl6 b/sort/odd-even-sort-4.pl6
@@ -3,7 +3,7 @@ sub odd-even-sort(@data) {
     while !$done {
         $done = True;
         for 0..1 -> $start {
-            loop (my $i = $start; $i < @data - 1; $i += 2) {
+            loop (my $i = $start; $i < @data - 1 - $start; $i += 2) {
                 $done--, @data[$i, $i + 1].=reverse if [>] @data[$i, $i + 1];
             }
         }