From b1295b45a393a9533e2de65ce93fd69bc2571fb6 Mon Sep 17 00:00:00 2001 From: "Jaldhar H. Vyas" Date: Sun, 19 Mar 2023 20:26:41 -0400 Subject: Small bugfix for ch-2. --- challenge-208/jaldhar-h-vyas/perl/ch-2.pl | 2 +- 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; } -- cgit