SEDOLs: Difference between revisions
Added 11l
(Added XPL0 example.) |
Alextretyak (talk | contribs) (Added 11l) |
||
Line 42:
* [[Calculate International Securities Identification Number|ISIN]]
<br><br>
=={{header|11l}}==
{{trans|Python}}
<lang 11l>F char2value(c)
assert(c !C ‘AEIOU’, ‘No vowels’)
R Int(c, radix' 36)
V sedolweight = [1, 3, 1, 7, 3, 9]
F checksum(sedol)
V tmp = sum(zip(sedol, :sedolweight).map((ch, weight) -> char2value(ch) * weight))
R String((10 - (tmp % 10)) % 10)
V sedols =
‘710889
B0YBKJ
406566
B0YBLH
228276
B0YBKL
557910
B0YBKR
585284
B0YBKT’
L(sedol) sedols.split("\n")
print(sedol‘’checksum(sedol))</lang>
{{out}}
<pre>
7108899
B0YBKJ7
4065663
B0YBLH2
2282765
B0YBKL9
5579107
B0YBKR5
5852842
B0YBKT7
</pre>
=={{header|ActionScript}}==
|