diff options
| -rwxr-xr-x | challenge-144/jaldhar-h-vyas/perl/ch-2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-144/jaldhar-h-vyas/perl/ch-2.pl b/challenge-144/jaldhar-h-vyas/perl/ch-2.pl index 0fe4866b04..4278139bf1 100755 --- a/challenge-144/jaldhar-h-vyas/perl/ch-2.pl +++ b/challenge-144/jaldhar-h-vyas/perl/ch-2.pl @@ -39,7 +39,7 @@ while (scalar @ulams < 10) { for my $candidate (@candidates) { $freq{$candidate}++; } - @candidates = grep { %freq{$_} < 2 } keys %freq; + @candidates = grep { $freq{$_} < 2 } keys %freq; @candidates = grep { $a = $_; !grep { $_ == $a } @ulams; } @candidates; |