Sorting algorithms/Strand sort: Difference between revisions
Content added Content deleted
m (→{{header|Phix}}: added syntax colouring the hard way) |
|||
Line 790: | Line 790: | ||
</pre> |
</pre> |
||
=={{header|Mathematica}}== |
=={{header|Mathematica}}/{{header|Wolfram Language}}== |
||
<lang Mathematica>StrandSort[ input_ ] := Module[ {results = {}, A = input}, |
<lang Mathematica>StrandSort[ input_ ] := Module[ {results = {}, A = input}, |
||
While[Length@A > 0, |
While[Length@A > 0, |
||
Line 798: | Line 798: | ||
]; |
]; |
||
results = #[[Ordering@#]]&@Join[sublist, results];]; |
results = #[[Ordering@#]]&@Join[sublist, results];]; |
||
results ] |
results ] |
||
⚫ | |||
Example usage : |
|||
{{out}} |
|||
⚫ | |||
{1, 2, 3, 4, 5, 7, 7}</pre> |
<pre>{1, 2, 3, 4, 5, 7, 7}</pre> |
||
=={{header|MAXScript}}== |
=={{header|MAXScript}}== |