diff options
| -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; } |