SEDOLs: Difference between revisions

Content added Content deleted

Inline

@@ Line 2,424: / Line 2,424: @@
 eachline(_bar,[checksum])</lang>
-=={{header|Mathematica}}==
+=={{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>
-->Output:
 7108899
 B0YBKJ7
@@ Line 2,443: / Line 2,442: @@
 B0YBKT7
 B0003010
-SEDOL[DUMMY] -> rejected</lang>
+SEDOL[DUMMY] -> rejected<pre>
 =={{header|Mercury}}==