diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2022-10-04 12:35:21 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2022-10-04 12:35:21 +0100 |
| commit | dcca78e4ccc455976d2df4d3416ab800c02bc445 (patch) | |
| tree | f972e11ad2932813671c49ab2881061afd14ed3b | |
| parent | 5f2256602e56c484b2823d7053c74e898731eb5e (diff) | |
| download | perlweeklychallenge-club-dcca78e4ccc455976d2df4d3416ab800c02bc445.tar.gz perlweeklychallenge-club-dcca78e4ccc455976d2df4d3416ab800c02bc445.tar.bz2 perlweeklychallenge-club-dcca78e4ccc455976d2df4d3416ab800c02bc445.zip | |
- Tidied up solution.
| -rw-r--r-- | challenge-185/mohammad-anwar/perl/ch-2.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-185/mohammad-anwar/perl/ch-2.pl b/challenge-185/mohammad-anwar/perl/ch-2.pl index 20faf12e7c..a962ab7edc 100644 --- a/challenge-185/mohammad-anwar/perl/ch-2.pl +++ b/challenge-185/mohammad-anwar/perl/ch-2.pl @@ -39,8 +39,8 @@ sub mask_code(@list) { my $i = 0; foreach my $char (split //, $entry) { - ($i >= 4) && ($mask .= $char) && next; - ($char !~ /^[a-z0-9]$/) && ($mask .= $char) && next; + ($i >= 4) and ($mask .= $char) and next; + ($char !~ /^[a-z0-9]$/) and ($mask .= $char) and next; $mask .= 'x'; $i++; } |