diff options
| author | Abigail <abigail@abigail.be> | 2021-06-16 15:46:14 +0200 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2021-06-16 15:46:14 +0200 |
| commit | c4fa7dbca54f46ca8b9b907d6ff591e97d5bb821 (patch) | |
| tree | e5bf5ad765c0309e00525dcbaf996b5ab221e1e4 /challenge-117/abigail | |
| parent | 8890075b590a450e05289e745073a8b7519035c6 (diff) | |
| download | perlweeklychallenge-club-c4fa7dbca54f46ca8b9b907d6ff591e97d5bb821.tar.gz perlweeklychallenge-club-c4fa7dbca54f46ca8b9b907d6ff591e97d5bb821.tar.bz2 perlweeklychallenge-club-c4fa7dbca54f46ca8b9b907d6ff591e97d5bb821.zip | |
Alternative Perl solution for week 117, part 1
Diffstat (limited to 'challenge-117/abigail')
| -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+$;}' |