- 火烧赤壁
- 2009-06-16 20:38:03 @
编译通过...
├ 测试数据 01:答案正确... 0ms
├ 测试数据 02:答案正确... 0ms
├ 测试数据 03:答案正确... 0ms
├ 测试数据 04:答案正确... 0ms
├ 测试数据 05:答案正确... 0ms
├ 测试数据 06:答案正确... 0ms
├ 测试数据 07:答案错误...
├ 标准行输出 ...1474222...
├ 错误行输出 ...1470970...
├ 测试数据 08:答案错误...
├ 标准行输出 199329
├ 错误行输出 199255
├ 测试数据 09:答案正确... 0ms
├ 测试数据 10:答案正确... 0ms
---|---|---|---|---|---|---|---|-
Unaccepted 有效得分:80 有效耗时:0ms
var
n,i:longint;
a,b:array[1..100000]of int64;
ans:longint;
procedure quicksort(l,r:longint);
var
x,i,j,t :int64;
begin
x:=a[(r+l) div 2+1];
i:=l;j:=r;
repeat
while a[i]x do dec(j);
if a[i]>=a[j] then
begin
t:=a[i]; a[i]:=a[j]; a[j]:=t;
t:=b[i]; b[i]:=b[j]; b[j]:=t;
inc(i);dec(j);
end
until i>j;
if l
0 条评论
目前还没有评论...