diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-03-02 17:48:42 +0000 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-03-02 17:48:42 +0000 |
| commit | 7c01a045f6e20e1aae3c4b63bcc8ddcbefceb63f (patch) | |
| tree | 24011f88d464268b3a0195ac7d9f5cff725b0323 /challenge-050/mohammad-anwar | |
| parent | 1df73d6d480531ec9668e9b3656704876377c691 (diff) | |
| download | perlweeklychallenge-club-7c01a045f6e20e1aae3c4b63bcc8ddcbefceb63f.tar.gz perlweeklychallenge-club-7c01a045f6e20e1aae3c4b63bcc8ddcbefceb63f.tar.bz2 perlweeklychallenge-club-7c01a045f6e20e1aae3c4b63bcc8ddcbefceb63f.zip | |
- Further more tidy up.
Diffstat (limited to 'challenge-050/mohammad-anwar')
| -rw-r--r-- | challenge-050/mohammad-anwar/perl/ch-1.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-050/mohammad-anwar/perl/ch-1.pl b/challenge-050/mohammad-anwar/perl/ch-1.pl index 171dd731f4..c2607e7c58 100644 --- a/challenge-050/mohammad-anwar/perl/ch-1.pl +++ b/challenge-050/mohammad-anwar/perl/ch-1.pl @@ -43,8 +43,8 @@ sub print_intervals { my ($key, $intervals) = @_; print "$key: ["; - foreach (@$intervals) { - print sprintf(" [%d, %d]", $_->[0], $_->[1]); + foreach my $i (@$intervals) { + print sprintf(" [%d, %d]", $i->[0], $i->[1]); } print " ]\n"; } |