diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2022-10-03 16:05:48 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2022-10-03 16:05:48 +0100 |
| commit | 73886c60216f15232fb3c7a196a08ca1ce3d2307 (patch) | |
| tree | 2f40b38f24b28d1bebb96e58d55b81ba6db6ee9c | |
| parent | 2ad14f79a51d96d4bde8c358982bf6fb320c2dfb (diff) | |
| download | perlweeklychallenge-club-73886c60216f15232fb3c7a196a08ca1ce3d2307.tar.gz perlweeklychallenge-club-73886c60216f15232fb3c7a196a08ca1ce3d2307.tar.bz2 perlweeklychallenge-club-73886c60216f15232fb3c7a196a08ca1ce3d2307.zip | |
- Tidied up solution.
| -rw-r--r-- | challenge-185/mohammad-anwar/perl/ch-2.pl | 16 |
1 files changed, 4 insertions, 12 deletions
diff --git a/challenge-185/mohammad-anwar/perl/ch-2.pl b/challenge-185/mohammad-anwar/perl/ch-2.pl index 62a00d8a09..20faf12e7c 100644 --- a/challenge-185/mohammad-anwar/perl/ch-2.pl +++ b/challenge-185/mohammad-anwar/perl/ch-2.pl @@ -39,18 +39,10 @@ sub mask_code(@list) { my $i = 0; foreach my $char (split //, $entry) { - if ($i < 4) { - if ($char =~ /^[a-z0-9]$/) { - $mask .= 'x'; - $i++ - } - else { - $mask .= $char; - } - } - else { - $mask .= $char; - } + ($i >= 4) && ($mask .= $char) && next; + ($char !~ /^[a-z0-9]$/) && ($mask .= $char) && next; + $mask .= 'x'; + $i++; } push @mc, $mask; |