diff options
| author | Bob Lied <boblied+github@gmail.com> | 2024-03-22 09:15:28 -0500 |
|---|---|---|
| committer | Bob Lied <boblied+github@gmail.com> | 2024-03-22 09:15:28 -0500 |
| commit | 19500e12bf0159ed58cade58ff83b9b3b3415c6f (patch) | |
| tree | 72a39398e44058c0fb3074176179e945535d2e1e | |
| parent | cf83eac3096b17c8ffb1cc6e40419ab159ec0d1f (diff) | |
| download | perlweeklychallenge-club-19500e12bf0159ed58cade58ff83b9b3b3415c6f.tar.gz perlweeklychallenge-club-19500e12bf0159ed58cade58ff83b9b3b3415c6f.tar.bz2 perlweeklychallenge-club-19500e12bf0159ed58cade58ff83b9b3b3415c6f.zip | |
Replace join with $"
| -rw-r--r-- | challenge-261/bob-lied/perl/ch-1.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/challenge-261/bob-lied/perl/ch-1.pl b/challenge-261/bob-lied/perl/ch-1.pl index 6aff905cb8..ff90a17bb1 100644 --- a/challenge-261/bob-lied/perl/ch-1.pl +++ b/challenge-261/bob-lied/perl/ch-1.pl @@ -39,7 +39,8 @@ say elementDigitSum(@ARGV); sub elementDigitSum(@ints) { use List::Util qw/sum0/; - return abs(sum0(@ints) - sum0( split('', join('', @ints)))); + local $" = ''; # No space when interpolating array into string + return abs(sum0(@ints) - sum0( split('', "@ints"))); } sub runTest |