From 37e9f9b26e307f7c9d0bbaf65000c50c4b694964 Mon Sep 17 00:00:00 2001
From: Mohammad S Anwar <mohammad.anwar@yahoo.com>
Date: Tue, 29 Sep 2020 11:59:56 +0100
Subject: - Minor improvement.

---
 challenge-080/mohammad-anwar/perl/ch-1.pl | 2 +-
 challenge-080/mohammad-anwar/perl/ch-1.t  | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/challenge-080/mohammad-anwar/perl/ch-1.pl b/challenge-080/mohammad-anwar/perl/ch-1.pl
index 71b467c148..b8b8f8eeb6 100644
--- a/challenge-080/mohammad-anwar/perl/ch-1.pl
+++ b/challenge-080/mohammad-anwar/perl/ch-1.pl
@@ -29,7 +29,7 @@ sub smallest_positive_number {
         return $n if ($n < $positive_numbers[$i++]);
     }
 
-    return $positive_numbers[-1]+1;
+    return ++$positive_numbers[-1];
 }
 
 sub get_list {
diff --git a/challenge-080/mohammad-anwar/perl/ch-1.t b/challenge-080/mohammad-anwar/perl/ch-1.t
index 2b615d1564..9ae519361b 100644
--- a/challenge-080/mohammad-anwar/perl/ch-1.t
+++ b/challenge-080/mohammad-anwar/perl/ch-1.t
@@ -40,5 +40,5 @@ sub smallest_positive_number {
         return $n if ($n < $positive_numbers[$i++]);
     }
 
-    return $positive_numbers[-1]+1;
+    return ++$positive_numbers[-1];
 }
-- 
cgit