diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-04-28 13:34:05 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-04-28 13:34:05 +0100 |
| commit | 80607c1d2cef1241874b5aa00f350125bb19b1b3 (patch) | |
| tree | 1d5be0d9bed172990f0a45c61f5e711200e0bca2 | |
| parent | a404cf430ac159e1d101687154164c09ace0cc6b (diff) | |
| download | perlweeklychallenge-club-80607c1d2cef1241874b5aa00f350125bb19b1b3.tar.gz perlweeklychallenge-club-80607c1d2cef1241874b5aa00f350125bb19b1b3.tar.bz2 perlweeklychallenge-club-80607c1d2cef1241874b5aa00f350125bb19b1b3.zip | |
- Updated solution by Roger Bell_West.
| -rwxr-xr-x | challenge-058/roger-bell-west/perl/ch-2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-058/roger-bell-west/perl/ch-2.pl b/challenge-058/roger-bell-west/perl/ch-2.pl index 1339ad06b3..6867b5ad95 100755 --- a/challenge-058/roger-bell-west/perl/ch-2.pl +++ b/challenge-058/roger-bell-west/perl/ch-2.pl @@ -19,7 +19,7 @@ foreach my $p (@i) { } } -print join(', ',@n),"\n"; +print join(', ',map {$H[$_-1]} @n),"\n"; foreach my $ti (0..$#n) { my $tx=$n[$ti]-1; |