diff options
| -rwxr-xr-x | challenge-160/mattneleigh/perl/ch-1.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-160/mattneleigh/perl/ch-1.pl b/challenge-160/mattneleigh/perl/ch-1.pl index d06b04a58b..6e7afa1ec2 100755 --- a/challenge-160/mattneleigh/perl/ch-1.pl +++ b/challenge-160/mattneleigh/perl/ch-1.pl @@ -42,7 +42,7 @@ foreach $number (@numbers){ $table[$number][0] . " is " . $table[$table[$number][1]][0] . - ", "; + ($table[$number][1] == 10 ? "." : ", "); $number = $table[$number][1]; } |