diff options
| -rw-r--r-- | challenge-162/mark-anderson/raku/ch-1.raku | 14 |
1 files changed, 14 insertions, 0 deletions
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 +} + |