diff options
| author | Niels van Dijke <65567640+PerlBoy1967@users.noreply.github.com> | 2022-04-26 01:00:13 +0200 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-04-26 01:00:13 +0200 |
| commit | ba062eb49dfe1a4f5463dd6fb96020bee2d0f85a (patch) | |
| tree | 50355b73a43202f204639da4ba054abcf03a2cd7 | |
| parent | 0799d0abf2f140e508f5ba8fbfcb47ce64313056 (diff) | |
| download | perlweeklychallenge-club-ba062eb49dfe1a4f5463dd6fb96020bee2d0f85a.tar.gz perlweeklychallenge-club-ba062eb49dfe1a4f5463dd6fb96020bee2d0f85a.tar.bz2 perlweeklychallenge-club-ba062eb49dfe1a4f5463dd6fb96020bee2d0f85a.zip | |
Task 1: Simplified 'mod 10' stuff
| -rwxr-xr-x | challenge-162/perlboy1967/perl/ch-1.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-162/perlboy1967/perl/ch-1.pl b/challenge-162/perlboy1967/perl/ch-1.pl index 6d55acdfc3..841bcd915b 100755 --- a/challenge-162/perlboy1967/perl/ch-1.pl +++ b/challenge-162/perlboy1967/perl/ch-1.pl @@ -22,4 +22,4 @@ use List::MoreUtils qw(pairwise); my @isbnDigits = (grep/\d/,split//,shift // '978-0-306-40615-7')[0..11]; my @factors = split//,1313131313131; -printf "%d\n", (10 - (sum0 pairwise {$a*$b} @isbnDigits,@factors) % 10) % 10; +say -(sum0 pairwise {$a*$b} @isbnDigits,@factors) % 10; |