From 818b0b40dec48072a1f05195c8cf002e4470c2c8 Mon Sep 17 00:00:00 2001
From: Walt Mankowski <waltman@pobox.com>
Date: Sun, 23 Aug 2020 08:48:35 -0400
Subject: changed out from an array to a string

---
 challenge-074/walt-mankowski/perl/ch-2.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/challenge-074/walt-mankowski/perl/ch-2.pl b/challenge-074/walt-mankowski/perl/ch-2.pl
index 7410b1714b..7e3e6bea72 100644
--- a/challenge-074/walt-mankowski/perl/ch-2.pl
+++ b/challenge-074/walt-mankowski/perl/ch-2.pl
@@ -35,7 +35,7 @@ my $s = $ARGV[0];
 my @c = split //, $s;
 my %seen;
 my @nr;
-my @out;
+my $out;
 
 for my $c (@c) {
     # have we seen $c before?
@@ -57,7 +57,7 @@ for my $c (@c) {
     }
 
     # now the FNR is either the last element of @nr, or #
-    push @out, @nr ? $nr[-1] : '#';
+    $out .= @nr ? $nr[-1] : '#';
 }
 
-say join '', @out;
+say $out;
-- 
cgit