diff options
| -rw-r--r-- | challenge-100/james-smith/perl/ch-2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-100/james-smith/perl/ch-2.pl b/challenge-100/james-smith/perl/ch-2.pl index 10dc496412..9070cbf3e9 100644 --- a/challenge-100/james-smith/perl/ch-2.pl +++ b/challenge-100/james-smith/perl/ch-2.pl @@ -87,5 +87,5 @@ sub display_sum { } 0..$a ), "\n" } 0..@_-1 ), - "\nMinimum path: ",$b->[0],"\n\n"; + "\nMinimum path: ",(join ' -> ', map { $_[$_][$route[$_]] } 0..@_-1 ),' ; Total: ',$b->[0],"\n\n"; } |