diff options
| author | Jaldhar H. Vyas <jaldhar@braincells.com> | 2021-12-27 02:01:16 -0500 |
|---|---|---|
| committer | Jaldhar H. Vyas <jaldhar@braincells.com> | 2021-12-27 02:01:16 -0500 |
| commit | 8949db7c665d7b4e0a0ad5a673e0634daf94e44b (patch) | |
| tree | ed22b3299b195fb03a58d306daf6bf0b74b0b228 | |
| parent | c8d9925fb29d46b554c4727ceb655ccaacbf6d55 (diff) | |
| download | perlweeklychallenge-club-8949db7c665d7b4e0a0ad5a673e0634daf94e44b.tar.gz perlweeklychallenge-club-8949db7c665d7b4e0a0ad5a673e0634daf94e44b.tar.bz2 perlweeklychallenge-club-8949db7c665d7b4e0a0ad5a673e0634daf94e44b.zip | |
Arrgh too many mistakes today. Fixed syntax in Perl solution for challenge 2.
| -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; |