diff options
| -rw-r--r-- | challenge-074/walt-mankowski/perl/ch-2.pl | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/challenge-074/walt-mankowski/perl/ch-2.pl b/challenge-074/walt-mankowski/perl/ch-2.pl index 01a73a12cd..7410b1714b 100644 --- a/challenge-074/walt-mankowski/perl/ch-2.pl +++ b/challenge-074/walt-mankowski/perl/ch-2.pl @@ -45,11 +45,14 @@ for my $c (@c) { push @nr, $c; } else { # remove $c from @nr - for my $i (0..$#nr) { - if ($nr[$i] eq $c) { - splice @nr, $i, 1; - last; + if ($seen{$c}) { + for my $i (0..$#nr) { + if ($nr[$i] eq $c) { + splice @nr, $i, 1; + last; + } } + $seen{$c} = 0; } } |