- Added Perl solutions to Find Unique Prefix.

2 files changed, 68 insertions, 0 deletions

diff --git a/challenge-057/mohammad-anwar/perl/ch-2.pl b/challenge-057/mohammad-anwar/perl/ch-2.pl
new file mode 100644
index 0000000000..52281a6547
--- /dev/null
+++ b/challenge-057/mohammad-anwar/perl/ch-2.pl
@@ -0,0 +1,28 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+my $words  = [ "alphabet", "book", "carpet", "cadmium", "cadeau", "alpine" ];
+my $unique = find_unique_prefix($words);
+
+print sprintf("[ %s ]\n", join(", ", @$unique));
+
+sub find_unique_prefix {
+    my ($words) = @_;
+
+    my $p = [];
+    foreach my $word (@$words) {
+        my $i = 1;
+        my $l = length($word);
+        while ($i < $l) {
+            my $char  = substr($word, 0, $i);
+            my $count = scalar(grep { m/^$char/ } @$words);
+
+            ($count > 1) && $i++ and next;
+            push @$p, $char and last;
+        }
+    }
+
+    return $p;
+}
diff --git a/challenge-057/mohammad-anwar/perl/ch-2a.pl b/challenge-057/mohammad-anwar/perl/ch-2a.pl
new file mode 100644
index 0000000000..69b16a8817
--- /dev/null
+++ b/challenge-057/mohammad-anwar/perl/ch-2a.pl
@@ -0,0 +1,40 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More;
+use Test::Deep;
+
+my $unit_tests = [
+    { in => [ "alphabet", "book", "carpet", "cadmium", "cadeau", "alpine" ],
+     out => [ "alph", "b", "car", "cadm", "cade", "alpi" ]
+    }
+];
+
+foreach my $unit_test (@$unit_tests) {
+    my $in  = $unit_test->{in};
+    my $out = $unit_test->{out};
+    is_deeply(find_unique_prefix($in), $out);
+}
+
+done_testing;
+
+sub find_unique_prefix {
+    my ($words) = @_;
+
+    my $p = [];
+    foreach my $word (@$words) {
+        my $i = 1;
+        my $l = length($word);
+        while ($i < $l) {
+            my $char  = substr($word, 0, $i);
+            my $count = scalar(grep { m/^$char/ } @$words);
+
+            ($count > 1) && $i++ and next;
+            push @$p, $char and last;
+        }
+    }
+
+    return $p;
+}