13 lines
283 B
Text
13 lines
283 B
Text
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
|
|
.
|