From 7271a79c190571b108dbd00b3b7e6383f05111f3 Mon Sep 17 00:00:00 2001
From: Mohammad S Anwar <mohammad.anwar@yahoo.com>
Date: Thu, 23 Apr 2020 11:39:08 +0100
Subject: - Updated solutions.

---
 challenge-057/mohammad-anwar/raku/ch-2.p6  | 8 ++++++--
 challenge-057/mohammad-anwar/raku/ch-2a.p6 | 8 ++++++--
 2 files changed, 12 insertions(+), 4 deletions(-)

diff --git a/challenge-057/mohammad-anwar/raku/ch-2.p6 b/challenge-057/mohammad-anwar/raku/ch-2.p6
index 96d5405f76..749a14ca4b 100644
--- a/challenge-057/mohammad-anwar/raku/ch-2.p6
+++ b/challenge-057/mohammad-anwar/raku/ch-2.p6
@@ -9,9 +9,13 @@ sub shortest-unique-prefix($words where .all ~~ Str) {
         my $l = $word.chars;
         while $i < $l {
             my $char  = $word.substr(0, $i);
-            my $count = $words.grep({ m/^$char/ }).elems;
+            # before :
+            # my $count = $words.grep({ m/^$char/ }).elems;
+            # after  : suggested by @HrBollermann
+            my $count = $words.grep( *.starts-with( $char ) ).elems;
 
-            $count > 1 && $i++ and next;
+            $i++;
+            next if $count > 1;
             $p.push: $char and last;
         }
     }
diff --git a/challenge-057/mohammad-anwar/raku/ch-2a.p6 b/challenge-057/mohammad-anwar/raku/ch-2a.p6
index 8d39ce40b7..0e32eda5b4 100644
--- a/challenge-057/mohammad-anwar/raku/ch-2a.p6
+++ b/challenge-057/mohammad-anwar/raku/ch-2a.p6
@@ -21,9 +21,13 @@ sub shortest-unique-prefix($words where .all ~~ Str) {
         my $l = $word.chars;
         while $i < $l {
             my $char  = $word.substr(0, $i);
-            my $count = $words.grep({ m/^$char/ }).elems;
+            # before :
+            # my $count = $words.grep({ m/^$char/ }).elems;
+            # after  : suggested by @HrBollermann
+            my $count = $words.grep( *.starts-with( $char ) ).elems;
 
-            $count > 1 && $i++ and next;
+            $i++;
+            next if $count > 1;
             $p.push: $char and last;
         }
     }
-- 
cgit