讨论 / 这个。。。怎么优化
Fish、のTorres 2010-07-13 08:17:00
点我顶贴 收藏 删除
最后一个点过不了

program fish;

var a:array[1..500000]of integer;

s,x,n,i,j,xx:longint;

begin

readln(n);

for i:=1 to n do readln(a[i]);

s:=0;

for i:=1 to n-1 do begin

xx:=0;

for j:=i+1 to n do begin

if xx>a[i] then break;

if a[j]>=xx then begin

s:=s+1;

xx:=a[j];

end

end;

end;

write(s);

end.

#1 hades@2009-07-27 19:35:00
回复 删除
目前看来,最后一个点数据很大,仅仅读入就会TLE,所以只能……了。
#2 Fish、のTorres@2009-07-27 20:32:00
回复 删除
cheat!~~~
#3 xnozero@2010-07-13 08:17:00
回复 删除
可以单调队列优化。。
查看更多回复
提交回复