diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2022-11-16 21:50:11 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-11-16 21:50:11 +0000 |
| commit | 0488d77bdd7b93cac777b461eb0d6f502dde8b7c (patch) | |
| tree | 22196894875fd27941a921ed9b3fbb94abe8bbcb | |
| parent | 72ff58129a13a3fb528b4f2a5430167cd7247655 (diff) | |
| download | perlweeklychallenge-club-0488d77bdd7b93cac777b461eb0d6f502dde8b7c.tar.gz perlweeklychallenge-club-0488d77bdd7b93cac777b461eb0d6f502dde8b7c.tar.bz2 perlweeklychallenge-club-0488d77bdd7b93cac777b461eb0d6f502dde8b7c.zip | |
Update ch-1.pl
| -rw-r--r-- | challenge-191/mohammad-anwar/perl/ch-1.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-191/mohammad-anwar/perl/ch-1.pl b/challenge-191/mohammad-anwar/perl/ch-1.pl index 8f479dd3fb..50e7cfe2fa 100644 --- a/challenge-191/mohammad-anwar/perl/ch-1.pl +++ b/challenge-191/mohammad-anwar/perl/ch-1.pl @@ -30,9 +30,9 @@ done_testing; # METHOD sub twice_largest(@list) { - my $max = [ sort @list ]->[-1]; + @list = sort { $a <=> $b } @list; + my $max = pop @list; foreach (@list) { - next if $_ == $max; ($_ * 2 > $max) and return -1; } |