diff options
| -rw-r--r-- | challenge-117/abigail/perl/ch-1.pl | 7 |
1 files changed, 7 insertions, 0 deletions
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+$;}' |