diff options
| author | Niels van Dijke <perlboy@cpan.org> | 2022-12-05 16:03:28 +0000 |
|---|---|---|
| committer | Niels van Dijke <perlboy@cpan.org> | 2022-12-05 16:03:28 +0000 |
| commit | 2d7cc7e438cc1c178a2e79a7889180ce1956f5a2 (patch) | |
| tree | a70d5b744d4ec3e5e53315dd93eafac3860c6bc5 | |
| parent | 6e5d2292148456a658b5c543f684bd2f97d69778 (diff) | |
| download | perlweeklychallenge-club-2d7cc7e438cc1c178a2e79a7889180ce1956f5a2.tar.gz perlweeklychallenge-club-2d7cc7e438cc1c178a2e79a7889180ce1956f5a2.tar.bz2 perlweeklychallenge-club-2d7cc7e438cc1c178a2e79a7889180ce1956f5a2.zip | |
Misplaced '('
| -rwxr-xr-x | challenge-194/perlboy1967/perl/ch-1.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-194/perlboy1967/perl/ch-1.pl b/challenge-194/perlboy1967/perl/ch-1.pl index 3e36138700..f39fc1a5c3 100755 --- a/challenge-194/perlboy1967/perl/ch-1.pl +++ b/challenge-194/perlboy1967/perl/ch-1.pl @@ -25,7 +25,7 @@ use Test::More; sub highestDigit ($) { state $c = { 0=>2, 1=>9, 2=>-1, 3=>5, 4=>9 }; - (length($_[0]) == 5 && $_[0] =~ y/?/?/) == 1 ? $c->{index($_[0],'?')} // -1 : -1; + length($_[0]) == 5 && ($_[0] =~ y/?/?/) == 1 ? $c->{index($_[0],'?')} // -1 : -1; } |