SEDOLs: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (syntax highlighting fixup automation) |
(Added Quackery.) |
||
| Line 3,308: | Line 3,308: | ||
scd each ("710889";"B0YBKJ";"406566";"B0YBLH";"228276";"B0YBKL";"557910";"B0YBKR";"585284";"B0YBKT";"B00030")</syntaxhighlight> |
scd each ("710889";"B0YBKJ";"406566";"B0YBLH";"228276";"B0YBKL";"557910";"B0YBKR";"585284";"B0YBKT";"B00030")</syntaxhighlight> |
||
=={{header|Quackery}}== |
|||
<syntaxhighlight lang="Quackery"> [ 48 - dup 9 > if [ 7 - ] ] is chvalue ( c --> n ) |
|||
[ 0 over witheach |
|||
[ chvalue |
|||
' [ 1 3 1 7 3 9 ] |
|||
i^ peek * + ] |
|||
10 mod 10 swap - 10 mod |
|||
48 + join ] is ->sedol ( $ --> $ ) |
|||
$ "710889 B0YBKJ 406566 B0YBLH 228276 |
|||
B0YBKL 557910 B0YBKR 585284 B0YBKT" nest$ |
|||
witheach [ ->sedol echo$ cr ]</syntaxhighlight> |
|||
{{out}} |
|||
<pre>7108899 |
|||
B0YBKJ7 |
|||
4065663 |
|||
B0YBLH2 |
|||
2282765 |
|||
B0YBKL9 |
|||
5579107 |
|||
B0YBKR5 |
|||
5852842 |
|||
B0YBKT7</pre> |
|||
=={{header|R}}== |
=={{header|R}}== |
||