diff options
| author | KjetilS <kjetilskotheim@gmail.com> | 2024-08-16 12:47:17 +0200 |
|---|---|---|
| committer | KjetilS <kjetilskotheim@gmail.com> | 2024-08-16 12:47:17 +0200 |
| commit | d45cb1249c1af0ecff9d955b4e9fa8e1a3028022 (patch) | |
| tree | bc32c6e3818f73e9c3604053a2d9fac347e42a36 | |
| parent | 7b35242ddfc9402e71a3c4882601c7c71806a183 (diff) | |
| download | perlweeklychallenge-club-d45cb1249c1af0ecff9d955b4e9fa8e1a3028022.tar.gz perlweeklychallenge-club-d45cb1249c1af0ecff9d955b4e9fa8e1a3028022.tar.bz2 perlweeklychallenge-club-d45cb1249c1af0ecff9d955b4e9fa8e1a3028022.zip | |
https://theweeklychallenge.org/blog/perl-weekly-challenge-282/
| -rw-r--r-- | challenge-282/kjetillll/perl/ch-1.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-282/kjetillll/perl/ch-1.pl b/challenge-282/kjetillll/perl/ch-1.pl index 34665cf223..2e08eac145 100644 --- a/challenge-282/kjetillll/perl/ch-1.pl +++ b/challenge-282/kjetillll/perl/ch-1.pl @@ -1,7 +1,7 @@ use strict; use warnings; use Test::More tests=>3; sub good_int { - shift =~ s/(.)\1*/$& /gr =~ /\b\d{3}\b/x ? $& : -1 + shift =~ s/(.)\1*/$& /gr =~ /\b\d{3}\b/ ? $& : -1 } is good_int(12344456) => "444"; |