diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2022-04-23 19:15:39 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2022-04-23 19:15:39 +0100 |
| commit | 85e7332b3df98043adf10f697047fed912ea4960 (patch) | |
| tree | a87832034a5aac7331dde93fe168f651283d8e17 /challenge-161 | |
| parent | 8f6ce447741a8320334a10c56b0da5be8cb4e6c0 (diff) | |
| download | perlweeklychallenge-club-85e7332b3df98043adf10f697047fed912ea4960.tar.gz perlweeklychallenge-club-85e7332b3df98043adf10f697047fed912ea4960.tar.bz2 perlweeklychallenge-club-85e7332b3df98043adf10f697047fed912ea4960.zip | |
- Tidied up a bit.
Diffstat (limited to 'challenge-161')
| -rw-r--r-- | challenge-161/mohammad-anwar/perl/ch-1.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-161/mohammad-anwar/perl/ch-1.pl b/challenge-161/mohammad-anwar/perl/ch-1.pl index e968ff1952..2343bea23a 100644 --- a/challenge-161/mohammad-anwar/perl/ch-1.pl +++ b/challenge-161/mohammad-anwar/perl/ch-1.pl @@ -28,7 +28,7 @@ my $words = {}; while (my $word = <$DICT>) { chomp $word; my $len = length($word); - $words->{$word} = $len if $len >= 2 && is_abecedarian_word($word); + $words->{$word} = $len if $len >= 2 && is_abecedarian($word); } close $DICT; @@ -38,7 +38,7 @@ printf("%s\n", join("\n", sort { $words->{$b} <=> $words->{$a} } sort keys %$wor # # METHOD -sub is_abecedarian_word { +sub is_abecedarian { my ($word) = @_; return 0 unless defined $word; |