百题留念

两次快排

不用快排行吗

这么弱的题想什么呢。。。直接sort就ac啊！！！

priority_queue+pair的完美诠释

顿时沙茶QAQ
WA两次。。连样例都没有试就直接交了

忧桑的数组大小

求神牛解答，为什么有三个点是E
var
a,b,c,d,e,f,g,h,i:longint;
y:array[1..3,1..5000]of int64;
begin
assign(input,'elect.in');
reset(input);
assign(output,'elect.out');
rewrite(output);
read(a,f);
for b:=1 to a do begin
read(y[1,b],y[2,b]);y[3,b]:=b;end;
begin
for c:=1 to f do
for d:=c+1 to a do
if y[1,c]<y[1,d] then begin
e:=y[1,c];y[1,c]:=y[1,d];y[1,d]:=e;
e:=y[2,c];y[2,c]:=y[2,d];y[2,d]:=e;
e:=y[3,c];y[3,c]:=y[3,d];y[3,d]:=e;
end;
for g:=1 to f do
if h<y[2,g] then begin
h:=y[2,g];i:=y[3,g];end;
end;
write(i);
close(input);close(output);
end.

膜拜楼上各位大神。。。

2个快排先后用就行了

被你们这些评论党坑死了、直接快排一遍就过了、、

STL快排效果拔群！

手动随机化带附属值快排迅速lu过

......
用了两边qsort
还把值参设成了integer
直接导致1组E,7组W,一组T...

不排序，只用普通查找 还没优化的话可以过8组。。。
努力优化中 理论上来说 这种算法只用n*k+2n的时间复杂度 把初始化数组也带上
我觉得没问题

qsort