Perl solutions for Week 78

13 files changed, 132 insertions, 0 deletions

diff --git a/challenge-078/abigail/Part1/input1 b/challenge-078/abigail/Part1/input1
new file mode 100644
index 0000000000..9a2d61d8c5
--- /dev/null
+++ b/challenge-078/abigail/Part1/input1
@@ -0,0 +1 @@
+9 10 7 5 6 1
diff --git a/challenge-078/abigail/Part1/input2 b/challenge-078/abigail/Part1/input2
new file mode 100644
index 0000000000..02c7bd24aa
--- /dev/null
+++ b/challenge-078/abigail/Part1/input2
@@ -0,0 +1 @@
+3 4 5
diff --git a/challenge-078/abigail/Part1/input3 b/challenge-078/abigail/Part1/input3
new file mode 100644
index 0000000000..139597f9cb
--- /dev/null
+++ b/challenge-078/abigail/Part1/input3
@@ -0,0 +1,2 @@
+
+
diff --git a/challenge-078/abigail/Part1/output1.exp b/challenge-078/abigail/Part1/output1.exp
new file mode 100644
index 0000000000..65f1fa0ab1
--- /dev/null
+++ b/challenge-078/abigail/Part1/output1.exp
@@ -0,0 +1 @@
+10 7 6 1
diff --git a/challenge-078/abigail/Part1/output2.exp b/challenge-078/abigail/Part1/output2.exp
new file mode 100644
index 0000000000..7ed6ff82de
--- /dev/null
+++ b/challenge-078/abigail/Part1/output2.exp
@@ -0,0 +1 @@
+5
diff --git a/challenge-078/abigail/Part1/output3.exp b/challenge-078/abigail/Part1/output3.exp
new file mode 100644
index 0000000000..573541ac97
--- /dev/null
+++ b/challenge-078/abigail/Part1/output3.exp
@@ -0,0 +1 @@
+0
diff --git a/challenge-078/abigail/Part1/solution.pl b/challenge-078/abigail/Part1/solution.pl
new file mode 100755
index 0000000000..e74cbbb0c4
--- /dev/null
+++ b/challenge-078/abigail/Part1/solution.pl
@@ -0,0 +1,43 @@
+#!/opt/perl/bin/perl
+
+#
+# Exercise:
+#    You are given an array @A containing distinct integers.
+#    Write a script to find all leader elements in the array @A.
+#    Print (0) if none found. An element is leader if it is greater
+#    than all the elements to its right side.
+#
+
+#
+# Note:
+#    - The only way no leader element can be found is if the array is empty.
+#    - We will read the array from STDIN.
+#
+
+use 5.032;
+
+use strict;
+use warnings;
+no  warnings 'syntax';
+
+use experimental 'signatures';
+
+my $max;
+
+#
+# Read the input, extract integers, and store them in @A.
+# If the input is empty, print 0 and exit.
+#
+say (0), exit unless my @A = <> =~ /[0-9]+/g;
+
+local $, = " ";
+
+#
+# Reverse the array, and extract each element which was larger
+# than any seen before (keep state in $max), then reverse it
+# again before printing.
+#
+
+say reverse
+    grep {!defined $max || $_ > $max ? do {$max = $_; 1} : 0}
+    reverse @A;
diff --git a/challenge-078/abigail/Part2/input1 b/challenge-078/abigail/Part2/input1
new file mode 100644
index 0000000000..6ed39f8f4d
--- /dev/null
+++ b/challenge-078/abigail/Part2/input1
@@ -0,0 +1,2 @@
+10 20 30 40 50
+3 4
diff --git a/challenge-078/abigail/Part2/input2 b/challenge-078/abigail/Part2/input2
new file mode 100644
index 0000000000..fda601bebf
--- /dev/null
+++ b/challenge-078/abigail/Part2/input2
@@ -0,0 +1,2 @@
+7 4 2 6 3
+1 3 4
diff --git a/challenge-078/abigail/Part2/output1.exp b/challenge-078/abigail/Part2/output1.exp
new file mode 100644
index 0000000000..6569215fd4
--- /dev/null
+++ b/challenge-078/abigail/Part2/output1.exp
@@ -0,0 +1,2 @@
+40 50 10 20 30
+50 10 20 30 40
diff --git a/challenge-078/abigail/Part2/output2.exp b/challenge-078/abigail/Part2/output2.exp
new file mode 100644
index 0000000000..819d56ba14
--- /dev/null
+++ b/challenge-078/abigail/Part2/output2.exp
@@ -0,0 +1,3 @@
+4 2 6 3 7
+6 3 7 4 2
+3 7 4 2 6
diff --git a/challenge-078/abigail/Part2/solution.pl b/challenge-078/abigail/Part2/solution.pl
new file mode 100755
index 0000000000..80e8f4907d
--- /dev/null
+++ b/challenge-078/abigail/Part2/solution.pl
@@ -0,0 +1,42 @@
+#!/opt/perl/bin/perl
+
+#
+# Exercise:
+# 
+#   You are given array @A containing positive numbers and @B containing
+#   one or more indices from the array @A.
+#   Write a script to left rotate @A so that the number at the first index
+#   of @B becomes the first element in the array. Similary, left rotate @A
+#   again so that the number at the second index of @B becomes the first
+#   element in the array.
+#
+
+#
+# We will be reading the arrays from STDIN -- @A is one the first
+# line, @B is on the second line.
+#
+
+use 5.032;
+
+use strict;
+use warnings;
+no  warnings 'syntax';
+
+use experimental 'signatures';
+
+#
+# Read @A and @B
+#
+chomp (my @A = split / / => scalar <>);
+chomp (my @B = split / / => scalar <>);
+
+#
+# Print the rotations.
+#
+foreach my $index (@B) {
+    local $, = " ";
+    say @A [$index .. @A - 1, 0 .. $index - 1];
+}
+
+
+__END__
diff --git a/challenge-078/abigail/test.pl b/challenge-078/abigail/test.pl
new file mode 100755
index 0000000000..2a0406cf31
--- /dev/null
+++ b/challenge-078/abigail/test.pl
@@ -0,0 +1,31 @@
+#!/opt/perl/bin/perl
+
+#
+# Test the solutions. Either call it with the directory name you
+# want to test in, or call it as "../test.pl" from within the directory.
+#
+
+use 5.032;
+
+use strict;
+use warnings;
+no  warnings 'syntax';
+
+chdir shift if @ARGV;
+
+use experimental 'signatures';
+
+use Test::More;
+
+my @inputs = <input*>;
+foreach my $input (@inputs) {
+    my $output_exp = ($input =~ s/input/output/r) . ".exp";
+    my $exp        = `cat $output_exp`;
+    my $got        = `./solution.pl < $input`;
+    is $got, $exp, $input;
+}
+
+done_testing;
+
+
+__END__