diff options
| -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; |