diff options
| -rw-r--r-- | challenge-073/walt-mankowski/perl/ch-2.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/challenge-073/walt-mankowski/perl/ch-2.pl b/challenge-073/walt-mankowski/perl/ch-2.pl index 21a09903fe..e48e92f66f 100644 --- a/challenge-073/walt-mankowski/perl/ch-2.pl +++ b/challenge-073/walt-mankowski/perl/ch-2.pl @@ -33,9 +33,9 @@ my @A = @ARGV; my @output = (0); my $min = $A[0]; -for my $i (1..$#A) { - push @output, $min < $A[$i] ? $min : 0; - $min = $A[$i] if $A[$i] < $min; +for my $x (@A[1..$#A]) { + push @output, $min < $x ? $min : 0; + $min = $x if $x < $min; } say "@output"; |