qsort很短啊、背就是了、越对称越好背。p党也无压力。
我整理了一下快排,改成自己固定的模式,就很好记了。很对称哦。
procedure qsort(s,t:longint);
var
i,j,k,r,x:longint;
begin
r:=(s+t)div 2;
k:=a[r];a[r]:=a[s];a[s]:=k;
i:=s;j:=t;
x:=a[i];
repeat
while (i<j)and(x<a[j])do j-=1;
if i<j then begin a[i]:=a[j];i+=1;end;
while (i<j)and(x>a[j])do i+=1;
if i<j then begin a[j]:=a[i];j-=1;end;
until i=j;
a[i]:=x;
i+=1;j-=1;
if i<t then qsort(i,t);
if s<j then qsort(s,j);
end;
每天打一遍快排、spfa、dijkstra、floyd、prim、kruskal、高精、等等锻炼身体~~rp++、noip++。
=0=
“再也不用担心图论题、so easy!”