diff options
| author | Niels van Dijke <perlboy@cpan.org> | 2025-07-04 22:38:01 +0000 |
|---|---|---|
| committer | Niels van Dijke <perlboy@cpan.org> | 2025-07-04 22:38:01 +0000 |
| commit | 02facb66da1ae70d8fa2c42c438fa0e17a2c24cc (patch) | |
| tree | 8fd5e3d11ff867ec4b5d37dc7e8ce86b421d0917 | |
| parent | 78586219a5775e626e77dc06d971613def94fb1f (diff) | |
| download | perlweeklychallenge-club-02facb66da1ae70d8fa2c42c438fa0e17a2c24cc.tar.gz perlweeklychallenge-club-02facb66da1ae70d8fa2c42c438fa0e17a2c24cc.tar.bz2 perlweeklychallenge-club-02facb66da1ae70d8fa2c42c438fa0e17a2c24cc.zip | |
Task1 - Slightly less compact code
| -rwxr-xr-x | challenge-328/perlboy1967/perl/ch1.pl | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/challenge-328/perlboy1967/perl/ch1.pl b/challenge-328/perlboy1967/perl/ch1.pl index 5c5acf09bd..35f624dcdc 100755 --- a/challenge-328/perlboy1967/perl/ch1.pl +++ b/challenge-328/perlboy1967/perl/ch1.pl @@ -22,8 +22,7 @@ use exact 'v5.32', -signatures; sub replaceAllQuestionMarks ($str) { sub _rep { my @c = map { $_ // '' } @_; - my @r = grep !/[$c[0]$c[1]]/, 'a' .. 'c'; - return $c[0].$r[0].$c[1]; + $c[0].(grep !/[$c[0]$c[1]]/,'a'..'c')[0].$c[1]; } 1 while ($str =~ s/(.)?\?(.)?/_rep($1,$2,$3)/e); return $str; |