From 90a708c5fc14baaac7f170e110c61d70fbde3a61 Mon Sep 17 00:00:00 2001
From: Dimitri Lozeve <dimitri@lozeve.com>
Date: Sun, 10 May 2020 22:45:09 +0200
Subject: [PATCH] Solve problem 7 task 1

---
 Contest2020/Contest2020.dyalog | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/Contest2020/Contest2020.dyalog b/Contest2020/Contest2020.dyalog
index 363db46..4b964c3 100644
--- 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
-                ∇
+                ⍝ 2020 APL Problem Solving Competition Phase II
+                ⍝ Problem 7, Tasl 1 - CheckDigit
+                CheckDigit←{10|-10|⍵+.×11⍴3 1}
 
                 ∇ bits←WriteUPC digits
                   ⍝ 2020 APL Problem Solving Competition Phase II