随机化快排
Posted KYRIE`RUSSAL
tags:
篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了随机化快排相关的知识，希望对你有一定的参考价值。
procedure qs(l,r:integer);
var i,j,x,t:integer;
begin
i:=l; j:=r;
x:=a[l+random(r-l)+1];
repeat
while (a[i]<x) do inc(i);
while (a[j]>x) do dec(j);
if i<=j then
begin
t:=a[i];a[i]:=a[j];a[j]:=t;
inc(i); dec(j);
end;
until i>j;
if l<j then qs(l,j);
if i<r then qs(i,r);
end;
var i,j,x,t:integer;
begin
i:=l; j:=r;
x:=a[l+random(r-l)+1];
repeat
while (a[i]<x) do inc(i);
while (a[j]>x) do dec(j);
if i<=j then
begin
t:=a[i];a[i]:=a[j];a[j]:=t;
inc(i); dec(j);
end;
until i>j;
if l<j then qs(l,j);
if i<r then qs(i,r);
end;
以上是关于随机化快排的主要内容，如果未能解决你的问题，请参考以下文章