From cee5057b4d512f6739c70fbc71dfd143d10049d3 Mon Sep 17 00:00:00 2001
From: Andrew Shitov <andy@shitov.ru>
Date: Fri, 28 Jun 2019 23:47:36 +0200
Subject: [PATCH] fix

---
 sort/odd-even-sort-1.pl6 | 2 +-
 sort/odd-even-sort-2.pl6 | 2 +-
 sort/odd-even-sort-3.pl6 | 2 +-
 sort/odd-even-sort-4.pl6 | 2 +-
 4 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/sort/odd-even-sort-1.pl6 b/sort/odd-even-sort-1.pl6
index b21dbde..e3e8e9c 100644
--- 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
index 62295d7..daa6cde 100644
--- 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
index b42c704..37ad8c5 100644
--- 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
index 42cf49d..2ad9667 100644
--- 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];
             }
         }