From 5b8dcdcf9ff65c0cc862bd7f27b4d8ed0f465040 Mon Sep 17 00:00:00 2001
From: Walt Mankowski <waltman@pobox.com>
Date: Thu, 20 Aug 2020 21:33:16 -0400
Subject: only try to erase c from nr once

---
 challenge-074/walt-mankowski/perl/ch-2.pl | 11 +++++++----
 1 file 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;
         }
     }
 
-- 
cgit