diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2023-03-20 00:48:00 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2023-03-20 00:48:00 +0000 |
| commit | 6e4c6820678cb13c16d8800657e92a898a776ccd (patch) | |
| tree | 2a6781897a3ab1e659ea6c7faeb0796e9fffc365 | |
| parent | 5f6a32c41d2255685b786d9c04a62ed329ffaf6a (diff) | |
| parent | b1295b45a393a9533e2de65ce93fd69bc2571fb6 (diff) | |
| download | perlweeklychallenge-club-6e4c6820678cb13c16d8800657e92a898a776ccd.tar.gz perlweeklychallenge-club-6e4c6820678cb13c16d8800657e92a898a776ccd.tar.bz2 perlweeklychallenge-club-6e4c6820678cb13c16d8800657e92a898a776ccd.zip | |
Merge pull request #7764 from jaldhar/challenge-208
Small bugfix for ch-2.
| -rwxr-xr-x | challenge-208/jaldhar-h-vyas/perl/ch-2.pl | 2 | ||||
| -rwxr-xr-x | challenge-208/jaldhar-h-vyas/raku/ch-2.raku | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/challenge-208/jaldhar-h-vyas/perl/ch-2.pl b/challenge-208/jaldhar-h-vyas/perl/ch-2.pl index ba3c32a940..198716ae7f 100755 --- a/challenge-208/jaldhar-h-vyas/perl/ch-2.pl +++ b/challenge-208/jaldhar-h-vyas/perl/ch-2.pl @@ -17,7 +17,7 @@ for my $i (0 .. scalar @nums - 1) { my $duplicate //= (grep { $count{$_} > 1; } keys %count)[0]; if ($duplicate) { - if ($duplicate == $nums[-1]) { + if (!defined $missing && $duplicate == $nums[-1]) { $missing = $nums[-1] + 1; } diff --git a/challenge-208/jaldhar-h-vyas/raku/ch-2.raku b/challenge-208/jaldhar-h-vyas/raku/ch-2.raku index 464a374c3c..aa0195c0d5 100755 --- a/challenge-208/jaldhar-h-vyas/raku/ch-2.raku +++ b/challenge-208/jaldhar-h-vyas/raku/ch-2.raku @@ -17,7 +17,7 @@ sub MAIN( my $duplicate = %count.keys.grep({ %count{$_} > 1; }).first; if $duplicate { - if $duplicate == @nums[*-1] { + if !defined $missing && $duplicate == @nums[*-1] { $missing = @nums[*-1] + 1; } |