diff options
| -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; |