Sorting algorithms/Bogosort: Difference between revisions
Content added Content deleted
(Added Oz.) |
(Mathematica) |
||
Line 684: | Line 684: | ||
bogosort(`b') |
bogosort(`b') |
||
show(`b')</lang> |
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}}== |
=={{header|MAXScript}}== |