From f5ce484e98886fd715a86d086368c26e969ec487 Mon Sep 17 00:00:00 2001
From: Ysmael Ebreo <Ysmael.Ebreo@latticesemi.com>
Date: Sun, 26 Apr 2020 15:55:12 +0800
Subject: Update for non unique whole word

---
 challenge-057/yet-ebreo/perl/ch-2.pl | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/challenge-057/yet-ebreo/perl/ch-2.pl b/challenge-057/yet-ebreo/perl/ch-2.pl
index 85092a443b..1500740ab4 100644
--- a/challenge-057/yet-ebreo/perl/ch-2.pl
+++ b/challenge-057/yet-ebreo/perl/ch-2.pl
@@ -11,11 +11,15 @@ sub uniq_prefix {
         splice @copy, $_, 1;
 
         my $prefix;
+        my $flag = 0;
         for my $size (1..length $word) {
             $prefix = substr $word, 0, $size;
-            last unless grep { /^$prefix/ } @copy 
+            unless (grep { /^$prefix/ } @copy ) {
+                $flag = 1;
+                last;
+            }
         }
-        $prefix;
+        $flag?$prefix:'na';
     } 0..$#{$words};
 }
 
-- 
cgit