diff options
| author | Walt Mankowski <waltman@pobox.com> | 2020-08-20 21:33:16 -0400 |
|---|---|---|
| committer | Walt Mankowski <waltman@pobox.com> | 2020-08-20 21:33:16 -0400 |
| commit | 5b8dcdcf9ff65c0cc862bd7f27b4d8ed0f465040 (patch) | |
| tree | 356e06ba4df7b78d8712f6702ceeb9b8749d9d56 | |
| parent | bd68cb43ac04ad8ec10f49cadd65af94fe7b9629 (diff) | |
| download | perlweeklychallenge-club-5b8dcdcf9ff65c0cc862bd7f27b4d8ed0f465040.tar.gz perlweeklychallenge-club-5b8dcdcf9ff65c0cc862bd7f27b4d8ed0f465040.tar.bz2 perlweeklychallenge-club-5b8dcdcf9ff65c0cc862bd7f27b4d8ed0f465040.zip | |
only try to erase c from nr once
| -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; } } |