PWC 248 Task 1 alternate solution using index

1 files changed, 28 insertions, 0 deletions

diff --git a/challenge-248/bob-lied/perl/ch-1.pl b/challenge-248/bob-lied/perl/ch-1.pl
index 4214acf1f2..2f18387091 100644
--- a/challenge-248/bob-lied/perl/ch-1.pl
+++ b/challenge-248/bob-lied/perl/ch-1.pl
@@ -58,6 +58,28 @@ sub shortest($str, $char)
     return \@dist;
 }
 
+sub sd2($str, $char)
+{
+    my @dist;
+    for my $i ( 0 .. length($str)-1 )
+    {
+        my $ahead  =  index($str, "$char", $i);
+        my $behind = rindex($str, "$char", $i);
+
+        if ( $ahead < 0 && $behind < 0 )
+        {
+            push @dist, undef;
+        }
+        else
+        {
+            $behind = $ahead  if $behind == -1;
+            $ahead  = $behind if $ahead  == -1;
+            push @dist, min abs($i - $behind), abs($ahead - $i);
+        }
+    }
+    return \@dist;
+}
+
 sub runTest
 {
     use Test2::V0;
@@ -68,5 +90,11 @@ sub runTest
     is( shortest("ab", 'x'), [undef, undef], "no x in str");
     is( shortest("", 'x'), [], "empty string");
 
+    is( sd2("loveleetcode", 'e'), [3,2,1,0,1,0,0,1,2,2,1,0], "Example 1");
+    is( sd2("aaab", 'b'), [3,2,1,0], "Example 2");
+
+    is( sd2("ab", 'x'), [undef, undef], "no x in str");
+    is( sd2("", 'x'), [], "empty string");
+
     done_testing;
 }