From 7c1173d7c6a6edd9f666dab8fae97d1deee3b65e Mon Sep 17 00:00:00 2001
From: E7-87-83 <fungcheokyin@gmail.com>
Date: Sun, 18 Aug 2024 23:25:15 +0800
Subject: add null string case in ch-2.pl

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

diff --git a/challenge-282/cheok-yin-fung/perl/ch-2.pl b/challenge-282/cheok-yin-fung/perl/ch-2.pl
index 276e97afb5..ed2afa15b3 100644
--- a/challenge-282/cheok-yin-fung/perl/ch-2.pl
+++ b/challenge-282/cheok-yin-fung/perl/ch-2.pl
@@ -6,6 +6,7 @@ use List::Util qw/reduce/;
 
 sub ck {
     my $str = $_[0];
+    return 0 if $str eq "";
     $str = lc $str;
     my @alphabets = split "", $str;
     my $abc = reduce { substr($a,-1) eq $b ? $a : $a.$b } @alphabets;
-- 
cgit