SEDOLs: Difference between revisions
m
→{{header|Mathematica}}
Alextretyak (talk | contribs) m (→{{header|11l}}: Indented multi-line string literals) |
|||
Line 2,424:
eachline(_bar,[checksum])</lang>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>SEDOL[Code_?(Function[v,StringFreeQ[v,{"A","E","I","O","U"}]])]:=
Code<>ToString[10-Mod[ToExpression[Quiet[Flatten[Characters[Code]
/.x_?LetterQ->(ToCharacterCode[x]-55)]]].{1,3,1,7,3,9},10]]
Scan[Print[SEDOL[#]] &, {"710889","B0YBKJ","406566","B0YBLH","228276","B0YBKL","557910","B0YBKR","585284","B0YBKT","B00030","DUMMY"}]</lang>▼
{{out}}
▲Scan[Print[SEDOL[#]] &, {"710889","B0YBKJ","406566","B0YBLH","228276","B0YBKL","557910","B0YBKR","585284","B0YBKT","B00030","DUMMY"}]
<pre>
7108899
B0YBKJ7
Line 2,443 ⟶ 2,442:
B0YBKT7
B0003010
SEDOL[DUMMY] -> rejected<
=={{header|Mercury}}==
| |||