点这里查看
讨论 / 数据那么BT，怎么过的？
小号一个 2012-01-25 20:42:00
点我顶贴 收藏 删除
数据那么大 ORZ

我比较想知道比赛当时那位大牛怎么过的

该不会之后过的全部是CHEAT的吧？！

谁有不是CHEAT的AC程序？

想回复‘CHEAT’的同志，请别回帖。

#1 wish@2009-05-18 03:33:00
回复 删除
O(N)+C/C++ 就可以过了
#2 小号一个@2009-05-19 02:11:00
回复 删除
呃

WISH老大

不知道O（N）算法怎么写。。。。

#3 小号一个@2009-05-19 02:15:00
回复 删除
据说读入就TLE

所以是试了下

状态题目:诺诺的队列

题目编号:460-诺诺的队列 查看该题

状态: Unaccepted

测评机： Xeost[5]

得分： 0分

提交日期： 2009-5-19 17:14:00

有效耗时： 该状态没有记录

测试结果1: 选手程序无输出

测试结果2: 选手程序无输出

测试结果3: 选手程序无输出

测试结果4: 选手程序无输出

测试结果5: 选手程序无输出

测试结果6: 选手程序无输出

测试结果7: 选手程序无输出

测试结果8: 选手程序无输出

测试结果9: 选手程序无输出

测试结果10: 选手程序运行超过时限

提交代码： program li；

var n,ans:longint；

a,f:array[0..500001] of longint；

procedure init；

var i:longint；

begin

readln(n)；

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

end；

procedure doit；

var i,j,k:longint；

begin

for i:=1 to n do

begin

k:=0；

for j:=i+1 to n do

if (a[j]>=k) and (a[i]>=k) and(j<>i+1) then begin inc(ans)； k:=a[j]； end；

end；

writeln(ans)；

end；

begin

init；

end.

#4 小号一个@2009-05-19 02:18:00
回复 删除
既然一定要用C/C++过的

那我就 CHEAT 算了

反正都用O（N）算法的了。

谢谢WISH。。。

#5 hackerdd@2012-01-14 21:23:00
回复 删除
谁说PASCAL过不了，可以的，看我的ac程序

状态: Accepted

测评机： Xeost[5]

得分： 100分 [我要评价一下题目~]

提交日期： 2012-1-14 23:28:00

有效耗时： 2734毫秒

测试结果1: 通过本测试点|有效耗时171ms

测试结果2: 通过本测试点|有效耗时172ms

测试结果3: 通过本测试点|有效耗时172ms

测试结果4: 通过本测试点|有效耗时188ms

测试结果5: 通过本测试点|有效耗时172ms

测试结果6: 通过本测试点|有效耗时187ms

测试结果7: 通过本测试点|有效耗时734ms

测试结果8: 通过本测试点|有效耗时360ms

测试结果9: 通过本测试点|有效耗时219ms

测试结果10: 通过本测试点|有效耗时359ms

program nonoqueue;

var

a: array[0..1000000] of longint;

n, k, i, h, t, ans: longint;

m, max, min: array[1..1000000] of longint;

procedure rd(n: longint);

begin

k:=t;

while (k >= h) and (a[k] <= m[n]) do

begin

if a[k]<m[n] then

Dec(t);

dec(k);

if k >= h then

Inc(ans);

end;

Inc(t);

a[t] := m[n];

end;

procedure cd(n: longint);

begin

k := t;

while (k >= h) and (a[k] <= m[n]) do

begin

Dec(k);

if k >= h then

Inc(ans);

end;

Inc(t);

a[t] := m[n];

end;

begin

readln(n);

h := 1;

t := 0;

for i := 1 to n do

Readln(m[i]);

a[0] := m[1] + 1;

for i := 1 to n do

begin

if m[i] < a[t] then

begin

Inc(t);

a[t] := m[i];

end

else

if m[i] > a[t] then

rd(i)

else

if m[i] = a[t] then

cd(i);

end;

Writeln(ans + n - 1);

end.

#6 灰天飞雁@2012-01-15 01:33:00
回复 删除
树状数组

……

#7 desprado2@2012-01-25 20:42:00
回复 删除
CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

CHEAT

查看更多回复
提交回复