Perl solution for week 3, part 2

2 files changed, 45 insertions, 0 deletions

diff --git a/challenge-003/abigail/README.md b/challenge-003/abigail/README.md
index 9801393564..818ae3c474 100644
--- a/challenge-003/abigail/README.md
+++ b/challenge-003/abigail/README.md
@@ -37,3 +37,4 @@ rows from the command line. The Pascal Triangle should have at least
 [wikipedia](https://en.wikipedia.org/wiki/Pascal%27s_triangle) page.
 
 ### Solutions
+* [Perl](perl/ch-2.pl)
diff --git a/challenge-003/abigail/perl/ch-2.pl b/challenge-003/abigail/perl/ch-2.pl
new file mode 100644
index 0000000000..a6af9168d0
--- /dev/null
+++ b/challenge-003/abigail/perl/ch-2.pl
@@ -0,0 +1,44 @@
+#!/opt/perl/bin/perl
+
+use 5.032;
+
+use strict;
+use warnings;
+no  warnings 'syntax';
+
+use experimental 'signatures';
+use experimental 'lexical_subs';
+
+#
+# See ../README.md
+#
+
+#
+# Run as: perl ch-2.pl < input-file
+#
+
+chomp (my $rows = <>);
+
+#
+# 0-th row
+#
+my @row = (1);
+say "@row";
+
+foreach (1 .. $rows) {
+    #
+    # Calculate the next row from the current row
+    #
+    my @new = map {($_ == 0    ? 0 : $row [$_ - 1]) +
+                   ($_ == @row ? 0 : $row [$_])} 0 .. @row;
+
+    #
+    # Print
+    #
+    say "@new";
+
+    #
+    # New row becomes current row
+    #
+    @row = @new;
+}