diff options
| author | Mark <53903062+andemark@users.noreply.github.com> | 2022-04-25 11:53:55 +0000 |
|---|---|---|
| committer | Mark <53903062+andemark@users.noreply.github.com> | 2022-04-25 11:53:55 +0000 |
| commit | ba16e48e24ca2f4fe6e939bbd465c2425de78ea0 (patch) | |
| tree | a2b2a30bc479e3a90a7200bb3cc96ce9d1eeb921 | |
| parent | af5fd62b1bded1873f6d0c1d54119cfc4dddcb17 (diff) | |
| download | perlweeklychallenge-club-ba16e48e24ca2f4fe6e939bbd465c2425de78ea0.tar.gz perlweeklychallenge-club-ba16e48e24ca2f4fe6e939bbd465c2425de78ea0.tar.bz2 perlweeklychallenge-club-ba16e48e24ca2f4fe6e939bbd465c2425de78ea0.zip | |
ch-1.raku
| -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 +} + |