From a293baa0c6e595d451fc0cd1e7342392038cd7f3 Mon Sep 17 00:00:00 2001
From: E7-87-83 <fungcheokyin@gmail.com>
Date: Sun, 26 Sep 2021 16:01:45 +0800
Subject: TWC 131

---
 challenge-131/blog.txt                    |  1 +
 challenge-131/cheok-yin-fung/perl/ch-2.pl | 24 ++++++++++++------------
 2 files changed, 13 insertions(+), 12 deletions(-)
 create mode 100644 challenge-131/blog.txt

diff --git a/challenge-131/blog.txt b/challenge-131/blog.txt
new file mode 100644
index 0000000000..1bc8167a16
--- /dev/null
+++ b/challenge-131/blog.txt
@@ -0,0 +1 @@
+https://e7-87-83.github.io/coding/challenge_131.html
diff --git a/challenge-131/cheok-yin-fung/perl/ch-2.pl b/challenge-131/cheok-yin-fung/perl/ch-2.pl
index e504deaa70..021266f3e8 100644
--- a/challenge-131/cheok-yin-fung/perl/ch-2.pl
+++ b/challenge-131/cheok-yin-fung/perl/ch-2.pl
@@ -147,16 +147,18 @@ sub find_pair {
                 pop @waiting_to_be_closed;
             }
             elsif (!defined($neutral_found{$c})) {
-                say("Warning: $stack[-1] at position ", $waiting_to_be_closed[-1],
-                    " does not close appropriately."); 
+                say("Warning: $stack[-1] at position ", 
+                    $waiting_to_be_closed[-1],
+                    " may not close appropriately."); 
                 say("Warning: $c at position ", $p,
-                    " may not be correspond to an opening delimiter.");
+                    " may not be corresponding to an opening delimiter.");
                 $early_warn = 1;
                 last;
             }
             else {
-                say("Warning: $stack[-1] at position ", $waiting_to_be_closed[-1],
-                    " does not open or close appropriately." );
+                say("Warning: $stack[-1] at position ", 
+                    $waiting_to_be_closed[-1],
+                    " does not open or close appropriately.");
                 $early_warn = 1;
                 last;
             }
@@ -177,20 +179,18 @@ sub find_pair {
                 last;
             }
         }
-       # say "Pos: ", $p;
-       # say "STACK: ", @stack;
-       # say "WAITING TO BE CLOSED: ", "@waiting_to_be_closed";
     }
-    if (!$early_warn && scalar @stack != 0 && !defined($close_found{$stack[-1]}) ) {
+    if (!$early_warn && scalar @stack != 0 
+        && !defined($close_found{$stack[-1]}) 
+       ) {
         say "Warning: delimiter(s) do not open or close appropriately:";
         say "Delimiters: @stack";
         say "Positions: ", "@waiting_to_be_closed";
     }
     if ($early_warn) {
-        say "Feedback: It is recommended that you check other delimiters as well.";
+        say "Feedback: It is recommended that you check other ",
+            "delimiters as well.";
     }
     
-    
     say "";
-    return;
 }
-- 
cgit