SEDOLs: Difference between revisions

=={{header|Phixmonti}}==

{{trans|RPL}}

<syntaxhighlight lang="Phixmonti">include ..\Utilitys.pmt

def ->7DOL

( 1 3 1 7 3 9 ) var weights

0 >ps

6 for >ps

tps get

dup 65 >= if 7 - endif 48 -

weights ps> get nip * ps> + >ps

endfor

10 ps> 10 mod - 10 mod tostr chain

enddef

( "710889" "B0YBKJ" "406566" "B0YBLH" "228276" "B0YBKL" "557910" "B0YBKR" "585284" "B0YBKT" "B00030" )

len for drop pop swap ->7DOL 0 put endfor

pstack</syntaxhighlight>

{{out}}

<pre>

[["7108899", "B0YBKJ7", "4065663", "B0YBLH2", "2282765", "B0YBKL9", "5579107", "B0YBKR5", "5852842", "B0YBKT7", "B000300"]]

=== Press any key to exit ===</pre>