Task

For each number list of 6-digit SEDOLs, calculate and append the checksum digit.



That is, given this input:

710889
B0YBKJ
406566
B0YBLH
228276
B0YBKL
557910
B0YBKR
585284
B0YBKT
B00030

Produce this output:

7108899
B0YBKJ7
4065663
B0YBLH2
2282765
B0YBKL9
5579107
B0YBKR5
5852842
B0YBKT7
B000300

Extra credit

Check each input is correctly formed, especially with respect to valid characters allowed in a SEDOL string.



Related tasks

   Luhn test
   ISIN


sedolnum = (c) :
   if ("0" ord <= c ord and c ord <= "9" ord): c number integer.
   else: 10 + c ord - "A" ord.
.
 
sedol = (str) :
   weight = (1, 3, 1, 7, 3, 9)
   sum = 0
   6 times (i) :
      sum = sum + sedolnum(str(i)) * weight(i)
   .
   (str, (10 - (sum % 10)) % 10) join
.