Sorting algorithms/Permutation sort: Difference between revisions
Sorting algorithms/Permutation sort (view source)
Revision as of 09:12, 17 August 2021
, 2 years ago→{{header|Mathematica}}
ReeceGoding (talk | contribs) (→RcppAlgos: Commented on an alternative loop.) |
|||
Line 1,518:
<pre>[-1,0,0,17,72]</pre>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
Here is a one-line solution.
A custom order relation can be defined for the OrderedQ[] function.
<lang Mathematica>PermutationSort[x_List] := NestWhile[RandomSample, x, Not[OrderedQ[#]] &]</lang>
| |||