diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2022-04-26 02:35:29 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-04-26 02:35:29 +0100 |
| commit | 4172dcee20a76fed6cd2cd0a1c53229cd9250bd7 (patch) | |
| tree | 50355b73a43202f204639da4ba054abcf03a2cd7 | |
| parent | 0799d0abf2f140e508f5ba8fbfcb47ce64313056 (diff) | |
| parent | ba062eb49dfe1a4f5463dd6fb96020bee2d0f85a (diff) | |
| download | perlweeklychallenge-club-4172dcee20a76fed6cd2cd0a1c53229cd9250bd7.tar.gz perlweeklychallenge-club-4172dcee20a76fed6cd2cd0a1c53229cd9250bd7.tar.bz2 perlweeklychallenge-club-4172dcee20a76fed6cd2cd0a1c53229cd9250bd7.zip | |
Merge pull request #6007 from PerlBoy1967/patch-1
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; |