编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

type

stack=record

x:longint;

y:longint;

end;

var a :array[1..15000]of stack;

b :array[0..15000]of longint;

n,i,j,t :longint;

procedure qsort(l,r:longint);

var i,j,x,y :longint;

t :stack;

begin

i:=l;j:=r;x:=a[(l+r)div 2].x;y:=a[(l+r)div 2].y;

repeat

while (a[i].x>x)or((a[i].x=x)and(a[i].y>y)) do inc(i);

while (a[j].xj;

if l

枚举+计数……

var x,y,a:array[0..20000] of longint;

n,i,j,s,t:longint;

begin

readln(n);

s:=0;

for i:=1 to n do readln(x[i],y[i]);

for i:=1 to n do

for j:=1 to n do

if (ij)and(x[i]

嘿嘿嘿嘿嘿嘿嘿嘿嘿嘿嘿嘿嘿嘿，神牛就别来了，这样的题留给我们万年菜刷分吧，这样打都能过，我服了:

program lyc;

var x,y,a:array[0..20000] of longint;

n,i,j,s,t:longint;

begin

readln(n);

s:=0;

for i:=1 to n do readln(x[i],y[i]);

for i:=1 to n do

for j:=1 to n do

if (ij)and(x[i]

本来想的……快排+线段树或树状数组……结果……一看……楼下那么多枚举AC……

我窘掉了……

写了那么长的代码啊！囧……

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 134ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：134ms

快排+穷举

Ural1028要求的时限是250ms.不知测试数据是否一样。

0ms过的可以来这里试一下。

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 166ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：166ms

最暴力最原始的搜索AC了，加了个快排竟然只能过5个点。。难道最标准的快排也错了么= =

看通过率这么高，就觉得n*n可以，想不到还真行。。。

树状数组排序要两个关键字哦.

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 244ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：244ms

编了个o（n^2)的，A了

两星了！！！

高兴啊

var i,j,n:longint; x,y,w,a:array[0..33000]of longint;

begin

readln(n);

for i:=1 to n do readln(x[i],y[i]);

for i:=1 to n do

for j:=1 to n do

if (ij)and(x[i]>=x[j])and(y[i]>=y[j])

and((x[i]x[j])or(y[i]y[j])) then inc(w[i]);

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

for i:=0 to n-1 do writeln(a[i]);

end.

连这最粗犷最暴力的穷举都能过

现在我开始怀疑 当初我为什么unaccepted 难道是那时候脑袋发昏？？

......

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 150ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：150ms

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 134ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：134ms

program p1066;

var n,i,j:longint;

a:array[0..15000,1..3]of longint;

b:array[0..15000]of longint;

begin

readln(n);

for i:=1 to n do

begin

read(a,a);

a:=-1;

end;

for i:=1 to n do

for j:=1 to n do

if (a>=a[j,1]) and (a>=a[j,2]) then

inc(a);

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

for i:=0 to n-1 do writeln(b[i]);

end.

这样也能AC??

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 134ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：134ms

var i,j,n:longint; x,y,w,e:array[0..32100]of longint;

begin

readln(n);

for i:=1 to n do readln(x[i],y[i]);

for i:=1 to n do

for j:=1 to n do

if (ij)and(x[i]>=x[j])and(y[i]>=y[j])

and((x[i]x[j])or(y[i]y[j])) then inc(w[i]);

for i:=1 to n do inc(e[w[i]]);

for i:=0 to n-1 do writeln(e[i]);

end.

program dsa;

var n,i,j:integer;

x,y,a,b:array[0..15001] of integer;

begin

read(n);

fillchar(a,sizeof(a),0);

fillchar(b,sizeof(b),0);

for i:=1 to n do read(x[i],y[i]);

for i:=1 to n do

for j:=1 to n do if (ij) and (x[j]

var sum,x,y,s:array[0..15001]of integer;

n,i,j:integer;

begin

readln(n);

for i:=1 to n do

readln(x[i],y[i]);

for i:=1 to n do

begin

s[i]:=0;

for j:=1 to n do

if (ij)and(x[j]

Vj评测机太好了...

本来是树状数组，枚举都能AC

有相等的，麻烦......

枚举才是硬道理！！！！！！！！！

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

快排+搜索

var x,y,a,b,c:array[1..32000] of longint;

n,i,j:longint;

begin

readln(n);

for i:=1 to n do

begin

readln(x[i],y[i]);

b[i]:=i-1;

end;

for i:=1 to n do

for j:=1 to n do

begin

if (ij) and (x[i]>=x[j]) and (y[i]>=y[j]) then inc(c[i]);

end;

for i:=1 to n do

for j:=1 to n do

if b[i]=c[j] then inc(a[i]);

for i:=1 to n do

writeln(a[i]);

end.