洛谷1177【模板】快速排序

题意

给出n（n<=100000)个数，按从小到大排序。

题解

就是快排。时间复杂度0(n log n)

代码

var
  n,i:longint;
  a:array[1..100000]of longint;

procedure qsort(l,r:longint);
var
  i,j,key,t:longint;
begin
  if l>=r then exit;
  i:=l;j:=r;
  key:=a[(l+r)div 2];
  repeat
    while (a[i]<key)and(i<r) do inc(i);
    while (a[j]>key)and(j>l) 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;
  qsort(i,r);
  qsort(l,j);
end;

begin
  readln(n);
  for i:=1 to n do
    read(a[i]);
  qsort(1,n);
  for i:=1 to n do
    write(a[i],' ');
end.