diff options
| author | Walt Mankowski <waltman@pobox.com> | 2020-08-23 08:48:35 -0400 |
|---|---|---|
| committer | Walt Mankowski <waltman@pobox.com> | 2020-08-23 08:48:35 -0400 |
| commit | 818b0b40dec48072a1f05195c8cf002e4470c2c8 (patch) | |
| tree | 30567b473da7673059a62e83648af0bf795b281c /challenge-074 | |
| parent | 5b8dcdcf9ff65c0cc862bd7f27b4d8ed0f465040 (diff) | |
| download | perlweeklychallenge-club-818b0b40dec48072a1f05195c8cf002e4470c2c8.tar.gz perlweeklychallenge-club-818b0b40dec48072a1f05195c8cf002e4470c2c8.tar.bz2 perlweeklychallenge-club-818b0b40dec48072a1f05195c8cf002e4470c2c8.zip | |
changed out from an array to a string
Diffstat (limited to 'challenge-074')
| -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; |