diff options
| author | Walt Mankowski <waltman@pobox.com> | 2020-08-15 13:33:23 -0400 |
|---|---|---|
| committer | Walt Mankowski <waltman@pobox.com> | 2020-08-15 13:33:23 -0400 |
| commit | 3afe7a05b939802e7783cb0f474bb2a8c723a28d (patch) | |
| tree | 326c96d9b3478eabd3c456ae71f97c236e6f6a3c /challenge-073 | |
| parent | f95569d2d2ee8ca021848d057755a4ffb361e70c (diff) | |
| download | perlweeklychallenge-club-3afe7a05b939802e7783cb0f474bb2a8c723a28d.tar.gz perlweeklychallenge-club-3afe7a05b939802e7783cb0f474bb2a8c723a28d.tar.bz2 perlweeklychallenge-club-3afe7a05b939802e7783cb0f474bb2a8c723a28d.zip | |
iterate through @a instead of using indices
Diffstat (limited to 'challenge-073')
| -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"; |