diff options
| author | Kang-min Liu <gugod@gugod.org> | 2020-09-29 00:37:54 +0900 |
|---|---|---|
| committer | Kang-min Liu <gugod@gugod.org> | 2020-09-29 00:37:54 +0900 |
| commit | 2654930b74daf1a96f52850fb1412a29f0e7a154 (patch) | |
| tree | ecd3867217df6ff61330bed22dd33c33da0f8be9 /challenge-080 | |
| parent | 10c36422e9166389bfb25e96f27922e0accbecb4 (diff) | |
| download | perlweeklychallenge-club-2654930b74daf1a96f52850fb1412a29f0e7a154.tar.gz perlweeklychallenge-club-2654930b74daf1a96f52850fb1412a29f0e7a154.tar.bz2 perlweeklychallenge-club-2654930b74daf1a96f52850fb1412a29f0e7a154.zip | |
get just the size of result.
Diffstat (limited to 'challenge-080')
| -rw-r--r-- | challenge-080/gugod/perl/ch-2.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-080/gugod/perl/ch-2.pl b/challenge-080/gugod/perl/ch-2.pl index 61f0e90073..d0560b4cac 100644 --- a/challenge-080/gugod/perl/ch-2.pl +++ b/challenge-080/gugod/perl/ch-2.pl @@ -10,6 +10,6 @@ use v5.28; my @N = grep { $_ > 0 } map { int($_) } @ARGV; -my @extra = grep { @N[$_] != @N[$_-1] } (1..@N-1); +my $extra = grep { @N[$_] != @N[$_-1] } (1..@N-1); -say @N + @extra; +say @N + $extra; |