diff options
| -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; |