diff options
| -rw-r--r-- | challenge-074/walt-mankowski/perl/ch-2.pl | 6 |
1 files 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; |