From ba16e48e24ca2f4fe6e939bbd465c2425de78ea0 Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Mon, 25 Apr 2022 11:53:55 +0000
Subject: ch-1.raku

---
 challenge-162/mark-anderson/raku/ch-1.raku | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 challenge-162/mark-anderson/raku/ch-1.raku

diff --git a/challenge-162/mark-anderson/raku/ch-1.raku b/challenge-162/mark-anderson/raku/ch-1.raku
new file mode 100644
index 0000000000..f7c2bc9145
--- /dev/null
+++ b/challenge-162/mark-anderson/raku/ch-1.raku
@@ -0,0 +1,14 @@
+#!/usr/bin/env raku
+
+use Test;
+
+is check-digit('978-0-306-40615-7'), 7;
+is check-digit('012-3-456-78921-0'), 0;
+
+sub check-digit(\isbn)
+{
+    10 - (sum isbn.chop.comb(/\d/) >>*>> < 1 3 >) mod 10
+
+    andthen .item < 10 ?? .item !! 0
+}
+
-- 
cgit