25 lines
596 B
Plaintext
25 lines
596 B
Plaintext
see sedol("710889") + nl
|
|
see sedol("B0YBKJ") + nl
|
|
see sedol("406566") + nl
|
|
see sedol("B0YBLH") + nl
|
|
see sedol("228276") + nl
|
|
see sedol("B0YBKL") + nl
|
|
see sedol("557910") + nl
|
|
see sedol("B0YBKR") + nl
|
|
see sedol("585284") + nl
|
|
see sedol("B0YBKT") + nl
|
|
see sedol("B00030") + nl
|
|
|
|
func sedol d
|
|
d = upper(d)
|
|
s = 0
|
|
weights = [1, 3, 1, 7, 3, 9]
|
|
for i = 1 to 6
|
|
a = substr(d,i,1)
|
|
if ascii(a) >= 48 and ascii(a) <= 57
|
|
s += number(a) * weights[i]
|
|
else
|
|
s += (ascii(a) - 55) * weights[i] ok
|
|
next
|
|
return d + (10 - (s % 10)) % 10
|