From 421c43c0346eeeaf994cba0481e66773b432a098 Mon Sep 17 00:00:00 2001
From: Fung Cheok Yin <61836418+E7-87-83@users.noreply.github.com>
Date: Sun, 23 Aug 2020 07:37:03 +0800
Subject: Update ch-1.pl

condense
---
 challenge-074/cheok-yin-fung/perl/ch-1.pl | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

diff --git a/challenge-074/cheok-yin-fung/perl/ch-1.pl b/challenge-074/cheok-yin-fung/perl/ch-1.pl
index feb190e26c..0b67899143 100644
--- a/challenge-074/cheok-yin-fung/perl/ch-1.pl
+++ b/challenge-074/cheok-yin-fung/perl/ch-1.pl
@@ -16,9 +16,7 @@ sub verify {
     my $m = $_[1];
     my $c = 0;
     for (@array) {
-        if ($m==$_) {
-            $c++;
-        }
+        $c++ if $m==$_;
     }
     return ($c > (scalar @array)/2.0 ? 1 : undef);
 }
@@ -32,11 +30,8 @@ sub bm_majority_vote_alg {
             $m = $_;
             $i++
         }
-        elsif ($m == $_) {
-            $i++;
-        } 
         else {
-            $i--;
+            $m == $_ ? $i++ : $i--;
         }
     }
     
-- 
cgit