ch-1.apl « apl « conor-hoekstra « challenge-162 - github/perlweeklychallenge-club.git - Unnamed repository; edit this file 'description' to name the repository.

about summary refs log tree commit diff

path: root/challenge-162/conor-hoekstra/apl/ch-1.apl

blob: a93ba65c0543a79fd8752425e691ade5ac283efa (plain)

checkDigit ← {10-10|+/(⊢×1 3⍴⍨≢)⍎¨¯1↓⍵~'-'}

⍝ Test
checkDigit '978-0-306-40615-7' ⍝ 7
checkDigit '978-1-861-97271-2' ⍝ 2