diff options
| author | Mark Anderson <mark@frontrangerunner.com> | 2019-11-28 07:53:50 -0700 |
|---|---|---|
| committer | Mark Anderson <mark@frontrangerunner.com> | 2019-11-28 07:53:50 -0700 |
| commit | 29e691546314c58bbc917097c618d56dcf500398 (patch) | |
| tree | 1b404dd93233ca144a66c354bc7c7ffc0c22e25b /challenge-036 | |
| parent | cf94a8238739e625eb1f2bfcc9394b765a700517 (diff) | |
| download | perlweeklychallenge-club-29e691546314c58bbc917097c618d56dcf500398.tar.gz perlweeklychallenge-club-29e691546314c58bbc917097c618d56dcf500398.tar.bz2 perlweeklychallenge-club-29e691546314c58bbc917097c618d56dcf500398.zip | |
Removed a useless index
Diffstat (limited to 'challenge-036')
| -rw-r--r-- | challenge-036/mark-anderson/perl5/ch-2.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-036/mark-anderson/perl5/ch-2.pl b/challenge-036/mark-anderson/perl5/ch-2.pl index 2493655675..c2bacaad6d 100644 --- a/challenge-036/mark-anderson/perl5/ch-2.pl +++ b/challenge-036/mark-anderson/perl5/ch-2.pl @@ -34,8 +34,8 @@ foreach my $k (1 .. 5) { say "-" x 42 . "\nNumber Of Boxes | Colors | Weight | Amount\n" . "-" x 42; -foreach my $k (keys @answers) { - say sprintf "%-18d%-9s%-9d%d", $answers[$k]->@*; +foreach my $k (@answers) { + say sprintf "%-18d%-9s%-9d%d", $k->@*; } # Output: |