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