Solve problem 7 task 1

2020-05-10 22:45:09 +02:00 · 2020-05-10 22:45:09 +02:00 · 90a708c5fc
commit 90a708c5fc
parent baeb85af01
1 changed files with 3 additions and 5 deletions
--- a/Contest2020/Contest2020.dyalog
+++ b/Contest2020/Contest2020.dyalog
@ -116,11 +116,9 @@
                  text←('@[a-zA-Z]*@'⎕R{ns getval ¯1↓1↓⍵.Match})template
                ∇

-                ∇ digit←CheckDigit digits
                ⍝ 2020 APL Problem Solving Competition Phase II
-                  ⍝ Stub function for Problem 7, Tasl 1 - CheckDigit
-                  ⍝ Put your code and comments below here
-                ∇
+                ⍝ Problem 7, Tasl 1 - CheckDigit
+                CheckDigit←{10|-10|⍵+.×11⍴3 1}

                ∇ bits←WriteUPC digits
                  ⍝ 2020 APL Problem Solving Competition Phase II