diff options
| author | Abigail <abigail@abigail.be> | 2021-02-18 01:16:29 +0100 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2021-02-18 01:16:29 +0100 |
| commit | 01816f96772a0ab1db52c09636e686cf47bb95dd (patch) | |
| tree | d2f5d09fb27bf9903ace4198ac26f23c2a57142b | |
| parent | 5d34a6625bbb1fb1b92181dddec2459480157f53 (diff) | |
| download | perlweeklychallenge-club-01816f96772a0ab1db52c09636e686cf47bb95dd.tar.gz perlweeklychallenge-club-01816f96772a0ab1db52c09636e686cf47bb95dd.tar.bz2 perlweeklychallenge-club-01816f96772a0ab1db52c09636e686cf47bb95dd.zip | |
Allow negative numbers.
| -rw-r--r-- | challenge-100/abigail/perl/ch-2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-100/abigail/perl/ch-2.pl b/challenge-100/abigail/perl/ch-2.pl index 3db6e7d481..f228dea943 100644 --- a/challenge-100/abigail/perl/ch-2.pl +++ b/challenge-100/abigail/perl/ch-2.pl @@ -17,7 +17,7 @@ use experimental 'lexical_subs'; # Run as: perl ch-2.pl < input-file # -my @nums = map {[/[0-9]+/g]} <>; +my @nums = map {[/-?[0-9]+/g]} <>; # # Calculate the minimum path bottom to top |