Sorting algorithms/Stooge sort: Difference between revisions
m
→{{header|Mathematica}}
Not a robot (talk | contribs) (Add BCPL) |
|||
Line 1,140:
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>stoogeSort[lst_, I_, J_] := Module[{i = I, j = J, list = lst},
If[list[[j]] < list[[i]], list[[{i,j}]] = list[[{j,i}]];]
If[(j-i) > 1, t = Round[(j-i+1)/3];
list=stoogeSort[list,i,j-t];
list=stoogeSort[list,i+t,j];
list=stoogeSort[list,i,j-t];];
list
]</lang>
{{out}}
<pre>stoogeSort[{3,2,9,6,8},1,5]
{2,3,6,8,9}</pre>
| |||