那年在OI

  下午逛矩阵牛的blog,有篇介绍排序的视频反反复复看了几遍,想起当初自己写的快排堆排,突然想看看自己当初写的程序。

   在QQ移动硬盘里找了一会，总算找到了吧。

  有点怀念那年那时了。

procedure qsort(l,r:integer);
var i,j,mid:integer;
begin
    i:=l;
    j:=r;
    mid:=a[(l+r) div 2];
repeat
   while a[i]<mid do inc(i);
   while a[j]>mid do dec(j);
if i<=j then

   begin
        a[0]:=a[i];
        b[0]:=b[i];
        a[i]:=a[j];
        b[i]:=b[j];
        a[j]:=a[0];
        b[j]:=b[0];
        inc(i);
        dec(j);
       end;

until i>j;
if l<j then qsort(l,j);
if i<r then qsort(i,r);
end;

  报告产生于 2009-06-20 15:27

  MyRecvFiles.rar

# 总计          大小        压缩后大小   文件数
#               509110        183000         303