diff options
| author | robbie-hatley <Robbie.Hatley@gmail.com> | 2023-12-01 19:16:25 -0800 |
|---|---|---|
| committer | robbie-hatley <Robbie.Hatley@gmail.com> | 2023-12-01 19:16:25 -0800 |
| commit | ca7692e8ee5d545956017631e72538527ebca12f (patch) | |
| tree | 20dd000e1322b160da9f1bbe186e1c2192ce8169 | |
| parent | 1f42ea705a1cc228d3d46b50b6e3d2b6f0480d19 (diff) | |
| download | perlweeklychallenge-club-ca7692e8ee5d545956017631e72538527ebca12f.tar.gz perlweeklychallenge-club-ca7692e8ee5d545956017631e72538527ebca12f.tar.bz2 perlweeklychallenge-club-ca7692e8ee5d545956017631e72538527ebca12f.zip | |
Fixed RE error in 245-1.
| -rwxr-xr-x | challenge-245/robbie-hatley/perl/ch-1.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-245/robbie-hatley/perl/ch-1.pl b/challenge-245/robbie-hatley/perl/ch-1.pl index daccc6014f..cb693b56a8 100755 --- a/challenge-245/robbie-hatley/perl/ch-1.pl +++ b/challenge-245/robbie-hatley/perl/ch-1.pl @@ -70,7 +70,7 @@ BEGIN {$t0 = time} sub is_array_of_numbers($aref) { return 0 if 'ARRAY' ne ref $aref; for (@$aref) { - return 0 if !/^0$|^-?0\.[0-9]+$|^-?[1-9]\d*(?:\.[0-9]+)*$/; + return 0 if !/^0$|^-?0\.\d+$|^-?[1-9]\d*(?:\.\d+)*$/; } return 1; } |