diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2022-11-01 17:54:34 +0000 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2022-11-01 17:54:34 +0000 |
| commit | fba7fbfb7234fac4b2363c68e1c331dd7e94acae (patch) | |
| tree | 4d70d81b8b0dd89197029658e9f52026031f0804 | |
| parent | 5388317c317e1e2c9c19e4567b0c1428666cbfe5 (diff) | |
| download | perlweeklychallenge-club-fba7fbfb7234fac4b2363c68e1c331dd7e94acae.tar.gz perlweeklychallenge-club-fba7fbfb7234fac4b2363c68e1c331dd7e94acae.tar.bz2 perlweeklychallenge-club-fba7fbfb7234fac4b2363c68e1c331dd7e94acae.zip | |
- Tidied up solution.
| -rw-r--r-- | challenge-189/mohammad-anwar/perl/ch-1.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/challenge-189/mohammad-anwar/perl/ch-1.pl b/challenge-189/mohammad-anwar/perl/ch-1.pl index 7e0d7f2806..bd061f7b07 100644 --- a/challenge-189/mohammad-anwar/perl/ch-1.pl +++ b/challenge-189/mohammad-anwar/perl/ch-1.pl @@ -31,6 +31,7 @@ done_testing; # METHOD sub greater_character($t, @chars) { - for (sort @chars) { return $_ if ord > ord $t } + my $ord_t = ord $t; + for (sort @chars) { return $_ if ord > $ord_t } return $t; } |