测评机： Xeost[5]
得分： 0分
提交日期： 2008-11-27 22:06:00
有效耗时： 该状态没有记录
测试结果1: 测试结果错误.错误结果为:200
0
-400
1600
12000
正确结果应为:200
0
1600
1800
12000
测试结果2: 测试结果错误.错误结果为:-11600
12000
-3600
-175200
-115200
正确结果应为:0
24000
-4000
189000
196400
测试结果3: 测试结果错误.错误结果为:-146400
-188800
-79600
-119600
-88800
正确结果应为:191400
165800
165000
156400
154200
测试结果4: 测试结果错误.错误结果为:-79200
-145600
-19600
-115600
-42000
正确结果应为:190400
180800
188000
178800
189000
测试结果5: 测试结果错误.错误结果为:-162000
-2400
-14000
-177600
-4400
正确结果应为:196400
191400
165800
165000
156400
测试结果6: 测试结果错误.错误结果为:-123200
-79200
-21200
-76000
-28000
正确结果应为:154200
190400
180800
188000
178800
测试结果7: 测试结果错误.错误结果为:-171600
-7600
-117200
-108000
-150800
正确结果应为:189000
196400
191400
165800
165000
测试结果8: 测试结果错误.错误结果为:-138800
-88800
-46000
-59200
-154400
正确结果应为:156400
154200
190400
180800
188000
测试结果9: 测试结果错误.错误结果为:-7200
-131600
-122000
-136800
-188800
正确结果应为:178800
189000
196400
191400
165800
测试结果10: 测试结果错误.错误结果为:-32800
-24800
-88800
-110000
正确结果应为:165000
156400
154200
190400
提交代码： type int=longint；
var a,b:array [1..100000] of int；
c:array [1..10000] of int；
n,t,s,e,m:int；
procedure loda；
var i:int；
begin
readln(n)；
for i:=1 to n do
read(a[i])；
for i:=1 to n do
read(b[i])；
end；
procedure Qsort(l,r:int)；
var ll,rr,t,m:int；
begin
ll:=l；rr:=r；m:=a[random(r-l+1)+l]；
repeat
while a[ll]<m do inc(ll)；
while a[rr]>m do dec(rr)；
if ll<=rr then
begin
t:=a[ll]；a[ll]:=a[rr]；a[rr]:=t；
inc(ll)；dec(rr)；
end；
until ll>rr；
if l<rr then Qsort(l,rr)；
if ll<r then Qsort(ll,r)；
end；
procedure Qsort2(l,r:int)；
var ll,rr,t,m:int；
begin
ll:=l；rr:=r；m:=a[random(r-l+1)+l]；
repeat
while b[ll]<m do inc(ll)；
while b[rr]>m do dec(rr)；
if ll<=rr then
begin
t:=b[ll]；b[ll]:=b[rr]；b[rr]:=t；
inc(ll)；dec(rr)；
end；
until ll>rr；
if l<rr then Qsort(l,rr)；
if ll<r then Qsort(ll,r)；
end；
begin
repeat
s:=0；
loda；
if n <>0 then qsort(1,n)；
if n <>0 then qsort2(1,n)；
t:=0；e:=0；
while t<n do
if a[t]>b[e] then begin t:=t+1；e:=e+1；s:=s+200；end else t:=t+1；
if n <>0 then s:=s-(n-e)*200；
if n <>0 then begin m:=m+1；c[m]:=s； end；
until n = 0；
for t:=1 to m-1 do
writeln(c[t])；
write(c[m])；
end.