From ba062eb49dfe1a4f5463dd6fb96020bee2d0f85a Mon Sep 17 00:00:00 2001
From: Niels van Dijke <65567640+PerlBoy1967@users.noreply.github.com>
Date: Tue, 26 Apr 2022 01:00:13 +0200
Subject: Task 1: Simplified 'mod 10' stuff

---
 challenge-162/perlboy1967/perl/ch-1.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
-- 
cgit