From d7e5aa02aa975fc2a4d52236eded20e8eed44960 Mon Sep 17 00:00:00 2001
From: E7-87-83 <fungcheokyin@gmail.com>
Date: Mon, 5 Apr 2021 09:58:07 +0800
Subject: fix a line again

---
 challenge-106/cheok-yin-fung/perl/ch-1.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/challenge-106/cheok-yin-fung/perl/ch-1.pl b/challenge-106/cheok-yin-fung/perl/ch-1.pl
index 31d753c32b..f3b27f3a68 100644
--- a/challenge-106/cheok-yin-fung/perl/ch-1.pl
+++ b/challenge-106/cheok-yin-fung/perl/ch-1.pl
@@ -29,7 +29,7 @@ sub max_ind {
 
 sub selection_sort {
     swap_arr_N(0, max_ind(@N));
-    for my $i (1..$#N-1) {
+    for my $i (1..$#N) {
         swap_arr_N($i, $i+max_ind(@N[$i..$#N]));
         my $dif = $N[$i-1] - $N[$i];
         $max_dif = $dif if $dif > $max_dif;
-- 
cgit