Merge pull request #6765 from tcheukueppo/kueppo-pwc-182

Kueppo pwc 182

2 files changed, 59 insertions, 0 deletions

diff --git a/challenge-182/kueppo-wesley/Perl/ch-1.pl b/challenge-182/kueppo-wesley/Perl/ch-1.pl
new file mode 100644
index 0000000000..13e7dcd09e
--- /dev/null
+++ b/challenge-182/kueppo-wesley/Perl/ch-1.pl
@@ -0,0 +1,37 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use feature      qw(signatures);
+use experimental qw(for_list);
+use builtin      qw(indexed);
+no  warnings     qw(experimental::builtin);
+
+use Test::More;
+
+sub first_max ( $string ) {
+    my @array = split m/, |\n/, $string;
+    my ( $index, $biggest ) = each @array;
+
+    foreach my ( $i, $v ) ( indexed @array ) {
+        if ( $v > $biggest ) {
+            $index   = $i;
+            $biggest = $v;
+        }
+    }
+
+    return $index;
+}
+
+my $biggest;
+push $biggest->@*, first_max $_ foreach <DATA>;
+
+is_deeply( $biggest, [ 2, 1, 4, 4 ], "find the index of the first biggest number in the list" );
+
+done_testing( 1 );
+
+__DATA__
+5, 2, 9, 1, 9, 6
+5, 10, 9, 1, 10, 6
+4, 2, 3, 1, 5, 0
+4, 2, 3, 1, 20, 20
diff --git a/challenge-182/kueppo-wesley/Perl/ch-2.pl b/challenge-182/kueppo-wesley/Perl/ch-2.pl
new file mode 100644
index 0000000000..268e86ddf1
--- /dev/null
+++ b/challenge-182/kueppo-wesley/Perl/ch-2.pl
@@ -0,0 +1,22 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+use Test::More;
+
+my $deepest_path = do {
+    local $/;
+    $+{c} if <DATA> =~ m|^ (?<c> (?: /[^\n/]+ )+ ) (?&c) (?: \n\g{c} (?&c) )+ $|x;
+};
+
+is( $deepest_path, '/a/b/c', "is '$deepest_path' the deepest path?" );
+
+done_testing( 1 );
+
+__DATA__
+/a/b/c/1/x.pl
+/a/b/c/d/e/2/x.pl
+/a/b/c/d/3/x.pl
+/a/b/c/4/x.pl
+/a/b/c/d/5/x.pl