diff options
| author | Adam Russell <ac.russell@live.com> | 2022-09-18 20:07:01 -0400 |
|---|---|---|
| committer | Adam Russell <ac.russell@live.com> | 2022-09-18 20:07:01 -0400 |
| commit | 2b76372a73bebab52be6cb9a3ae8edddec15225c (patch) | |
| tree | 49053493c55587afa7b3dfc17a1ffb8501d077e8 /challenge-182 | |
| parent | e5e455ba54dea25fb4d4803e0217da62178ffe7f (diff) | |
| download | perlweeklychallenge-club-2b76372a73bebab52be6cb9a3ae8edddec15225c.tar.gz perlweeklychallenge-club-2b76372a73bebab52be6cb9a3ae8edddec15225c.tar.bz2 perlweeklychallenge-club-2b76372a73bebab52be6cb9a3ae8edddec15225c.zip | |
remove trailing / with chop
Diffstat (limited to 'challenge-182')
| -rw-r--r-- | challenge-182/adam-russell/perl/ch-2.pl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/challenge-182/adam-russell/perl/ch-2.pl b/challenge-182/adam-russell/perl/ch-2.pl index ed3dbab7c2..6901252e01 100644 --- a/challenge-182/adam-russell/perl/ch-2.pl +++ b/challenge-182/adam-russell/perl/ch-2.pl @@ -16,6 +16,7 @@ sub deepest_path{ map { $h{$_} = undef } @column; $deepest_path .= (keys %h)[0] . q#/# if 1 == keys %h; } + chop $deepest_path; return $deepest_path; } |