From c4fa7dbca54f46ca8b9b907d6ff591e97d5bb821 Mon Sep 17 00:00:00 2001
From: Abigail <abigail@abigail.be>
Date: Wed, 16 Jun 2021 15:46:14 +0200
Subject: Alternative Perl solution for week 117, part 1

---
 challenge-117/abigail/perl/ch-1.pl | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/challenge-117/abigail/perl/ch-1.pl b/challenge-117/abigail/perl/ch-1.pl
index 21d7c70d6c..3c805b2d36 100644
--- a/challenge-117/abigail/perl/ch-1.pl
+++ b/challenge-117/abigail/perl/ch-1.pl
@@ -27,3 +27,10 @@ use experimental 'lexical_subs';
 use List::Util qw [sum];
 
 say 120 - sum <>;
+
+#
+# An alternative one-liner, with no external modules, nor any hard
+# coded dependency of the number of lines in the file:
+#
+
+# perl -nE '$;+=$.-$_;END{say$.+1+$;}'
-- 
cgit