Sorting algorithms/Bogosort: Difference between revisions
Content added Content deleted
Line 1,833: | Line 1,833: | ||
<pre>[1 2 3]</pre> |
<pre>[1 2 3]</pre> |
||
=={{header|Mathematica}}== |
=={{header|Mathematica}}/{{header|Wolfram Language}}== |
||
<lang Mathematica>Bogosort[x_List] := Block[{t=x},While[!OrderedQ[t],t=RandomSample[x]]; t] |
<lang Mathematica>Bogosort[x_List] := Block[{t=x},While[!OrderedQ[t],t=RandomSample[x]]; t] |
||
Bogosort[{1, 2, 6, 4, 0, -1, Pi, 3, 5}] |
Bogosort[{1, 2, 6, 4, 0, -1, Pi, 3, 5}] |
||
=> {-1, 0, 1, 2, 3, Pi, 4, 5, 6}</lang> |
=> {-1, 0, 1, 2, 3, Pi, 4, 5, 6}</lang> |