Perl solutions for week 112

2 files changed, 67 insertions, 0 deletions

diff --git a/challenge-112/abigail/perl/ch-1.pl b/challenge-112/abigail/perl/ch-1.pl
new file mode 100644
index 0000000000..e1f01db484
--- /dev/null
+++ b/challenge-112/abigail/perl/ch-1.pl
@@ -0,0 +1,43 @@
+#!/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-1.pl < input-file
+#
+
+while (<>) {
+    chomp;
+
+    # Remove duplicate slashes
+    s !/\K/+!!g;
+
+    # Add a trailing slash; this makes it easier to deal
+    # with the cases below.
+    $_ .= "/";
+
+    # Remove single period
+    s !/\.(?=/)!!g;
+
+    # Remove double period
+    1 while s !/[^/]+/\.\.(?=/)!!;
+
+    # Remove any leading /../
+    1 while s !^/\.\./!/!;
+
+    # Remove trailing slashes
+    s !/+$!!;
+
+    say;
+}
diff --git a/challenge-112/abigail/perl/ch-2.pl b/challenge-112/abigail/perl/ch-2.pl
new file mode 100644
index 0000000000..2d52916053
--- /dev/null
+++ b/challenge-112/abigail/perl/ch-2.pl
@@ -0,0 +1,24 @@
+#!/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
+#
+
+#
+# This is just the Fibonacci numbers...
+#
+sub f ($n) {state $c = {0 => 1, 1 => 1}; $$c {$n} //= f ($n - 1) + f ($n - 2)}
+say f ($_) for <>;