- Added solutions by Robert DiCicco.

2 files changed, 50 insertions, 0 deletions

diff --git a/challenge-162/robert-dicicco/perl/ch-1.pl b/challenge-162/robert-dicicco/perl/ch-1.pl
new file mode 100644
index 0000000000..1cf0ee35fe
--- /dev/null
+++ b/challenge-162/robert-dicicco/perl/ch-1.pl
@@ -0,0 +1,28 @@
+#!perl.exe
+
+use strict;
+use warnings;
+use feature qw/say/;
+
+# AUTHOR: Robert DiCicco
+# DATE: 25-APR-2022
+# Challenge 162 ISBN-13 ( Perl )
+
+sub makeCheckDigit {
+  my $n = shift;
+
+  my @arr = split(//,$n);
+  my $evensum = $arr[0] + $arr[2] + $arr[4] + $arr[6] + $arr[8] + $arr[10];
+  my $oddsum = ($arr[1] + $arr[3] + $arr[5] + $arr[7] + $arr[9] + $arr[11]) * 3;
+  my $presum = ($evensum + $oddsum) % 10;
+  my $checkdigit = 10 - $presum;
+
+  return $checkdigit;
+}
+
+my $isbn = '978-0-306-40615-7';
+my $num = substr($isbn,0,15);
+$num =~ tr/\-//d;
+my $checkdigit = makeCheckDigit($num);
+
+say "ISBN-13 check digit for $isbn is $checkdigit.";
diff --git a/challenge-162/robert-dicicco/raku/ch-1.raku b/challenge-162/robert-dicicco/raku/ch-1.raku
new file mode 100644
index 0000000000..f45b241954
--- /dev/null
+++ b/challenge-162/robert-dicicco/raku/ch-1.raku
@@ -0,0 +1,22 @@
+use v6;
+
+# AUTHOR: Robert DiCicco
+# DATE: 26-APR-2022
+# Challenge 162 ISBN-13 ( Raku )
+
+sub makeCheckDigit ( $n) {
+  my @arr = $n.comb;
+  my $evensum = @arr[0] + @arr[2] + @arr[4] + @arr[6] + @arr[8] + @arr[10];
+  my $oddsum = (@arr[1] + @arr[3] + @arr[5] + @arr[7] + @arr[9] + @arr[11]) * 3;
+  my $presum = ($evensum + $oddsum) % 10;
+  my $checkdigit = 10 - $presum;
+
+  return $checkdigit;
+}
+
+my $isbn = '978-0-306-40615-7';
+my $num = substr($isbn,0,15);
+$num ~~ tr/-//;
+my $checkdigit = makeCheckDigit($num);
+
+say "ISBN-13 check digit for $isbn is $checkdigit.";