SEDOLs: Difference between revisions
Content added Content deleted
(Added XPL0 example.) |
Alextretyak (talk | contribs) (Added 11l) |
||
| Line 42: | Line 42: | ||
* [[Calculate International Securities Identification Number|ISIN]] |
* [[Calculate International Securities Identification Number|ISIN]] |
||
<br><br> |
<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}}== |
=={{header|ActionScript}}== |
||