diff options
| author | Jaldhar H. Vyas <jaldhar@braincells.com> | 2023-03-19 20:26:41 -0400 |
|---|---|---|
| committer | Jaldhar H. Vyas <jaldhar@braincells.com> | 2023-03-19 20:26:41 -0400 |
| commit | b1295b45a393a9533e2de65ce93fd69bc2571fb6 (patch) | |
| tree | c348d84335a8434141a490bc27cb868ddbdf11d2 | |
| parent | 519dd5aaf4bacd263e3260dd000ffa825c0ea691 (diff) | |
| download | perlweeklychallenge-club-b1295b45a393a9533e2de65ce93fd69bc2571fb6.tar.gz perlweeklychallenge-club-b1295b45a393a9533e2de65ce93fd69bc2571fb6.tar.bz2 perlweeklychallenge-club-b1295b45a393a9533e2de65ce93fd69bc2571fb6.zip | |
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; } |