diff options
| author | Niels van Dijke <perlboy@cpan.org> | 2024-08-26 09:28:01 +0000 |
|---|---|---|
| committer | Niels van Dijke <perlboy@cpan.org> | 2024-08-26 09:28:01 +0000 |
| commit | 9945f7086c0e3383a200f4c7578d505096705107 (patch) | |
| tree | 06d2119d258ae97081faf4db64a490a49b6e0503 | |
| parent | 06903ea7e4a345a61e95cfa590d7d558e1d00fc6 (diff) | |
| download | perlweeklychallenge-club-9945f7086c0e3383a200f4c7578d505096705107.tar.gz perlweeklychallenge-club-9945f7086c0e3383a200f4c7578d505096705107.tar.bz2 perlweeklychallenge-club-9945f7086c0e3383a200f4c7578d505096705107.zip | |
Remove helper variable on task 1
| -rwxr-xr-x | challenge-284/perlboy1967/perl/ch1.pl | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/challenge-284/perlboy1967/perl/ch1.pl b/challenge-284/perlboy1967/perl/ch1.pl index c0b5b28105..d747e83e42 100755 --- a/challenge-284/perlboy1967/perl/ch1.pl +++ b/challenge-284/perlboy1967/perl/ch1.pl @@ -30,8 +30,7 @@ use List::Util qw(max); sub luckyInteger (@ints) { my %f; $f{$_}++ for (@ints); - my @l = (-1,grep { $f{$_} == $_ } keys %f); - max(@l); + max(-1,grep { $f{$_} == $_ } keys %f); } is(luckyInteger(2,2,3,4),2,'Example 1'); |