diff options
| author | k-mx <cppfero@gmail.com> | 2019-05-02 15:31:38 +0500 |
|---|---|---|
| committer | k-mx <cppfero@gmail.com> | 2019-05-02 15:34:17 +0500 |
| commit | 419c486986fca4a789e57e06f7064ff2f213d79f (patch) | |
| tree | 88de457537670d57179393886492bf6890f7d04c | |
| parent | deae72c45b317c9c99566cddc40c59ba1032b073 (diff) | |
| download | perlweeklychallenge-club-419c486986fca4a789e57e06f7064ff2f213d79f.tar.gz perlweeklychallenge-club-419c486986fca4a789e57e06f7064ff2f213d79f.tar.bz2 perlweeklychallenge-club-419c486986fca4a789e57e06f7064ff2f213d79f.zip | |
extra spaces for re
| -rw-r--r-- | challenge-006/maxim-kolodyazhny/perl5/ch-1.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/challenge-006/maxim-kolodyazhny/perl5/ch-1.pl b/challenge-006/maxim-kolodyazhny/perl5/ch-1.pl index 5ac290fdd0..4ccfcc64a3 100644 --- a/challenge-006/maxim-kolodyazhny/perl5/ch-1.pl +++ b/challenge-006/maxim-kolodyazhny/perl5/ch-1.pl @@ -6,9 +6,9 @@ use 5.028.1; use List::Util qw(sum); s{ - (\b \d+) - (,?\d+,)+ - (\d+ \b) + ( \b \d+ ) + ( ,? \d+ , )+ + ( \d+ \b ) (??{ # this block is treated as a pattern # != will return '' (always match) or 1 (fail because of previous \b) |