Anonymous user
Sorting algorithms/Bogosort: Difference between revisions
Mathematica
(Added Oz.) |
(Mathematica) |
||
Line 684:
bogosort(`b')
show(`b')</lang>
=={{header|Mathematica}}==
<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}]
=> {-1, 0, 1, 2, 3, Pi, 4, 5, 6}</lang>
=={{header|MAXScript}}==
|