CODEVS 1132 瑞士轮

题目描述 Description

背景

在双人对决的竞技性比赛，如乒乓球、羽毛球、国际象棋中，最常见的赛制是淘汰赛和循环赛。前者的特点是比赛场数少，每场都紧张刺激，但偶然性较高。后者的特点是较为公平，偶然性较低，但比赛过程往往十分冗长。
本题中介绍的瑞士轮赛制，因最早使用于 1895 年在瑞士举办的国际象棋比赛而得名。它可以看作是淘汰赛与循环赛的折衷，既保证了比赛的稳定性，又能使赛程不至于过长。

2*N 名编号为1~2N 的选手共进行R 轮比赛。每轮比赛开始前，以及所有比赛结束后，都会按照总分从高到低对选手进行一次排名。选手的总分为第一轮开始前的初始分数加上已参加过的所有比赛的得分和。总分相同的，约定编号较小的选手排名靠前。每轮比赛的对阵安排与该轮比赛开始前的排名有关：第 1 名和第2 名、第3 名和第4名、……、第2K – 1 名和第2K 名、…… 、第 2N – 1 名和第2N 名，各进行一场比赛。每场比赛胜者得1 分，负者得0 分。也就是说除了首轮以外，其它轮比赛的安排均不能事先确定，而是要取决于选手在之前比赛中的表现。
现给定每个选手的初始分数及其实力值，试计算在 R 轮比赛过后，排名第Q 的选手编号是多少。我们假设选手的实力值两两不同，且每场比赛中实力值较高的总能获胜。

输入描述 Input Description

输入的第一行是三个正整数 N、R、Q，每两个数之间用一个空格隔开，表示有2*N 名选手、R 轮比赛，以及我们关心的名次Q。
第二行是 2*N 个非负整数s1, s2, …, s2N，每两个数之间用一个空格隔开，其中si 表示编号为i 的选手的初始分数。
第三行是 2*N 个正整数w1, w2, …, w2N，每两个数之间用一个空格隔开，其中wi 表示编号为i 的选手的实力值。

输出描述 Output Description

输出只有一行，包含一个整数，即 R 轮比赛结束后，排名第Q 的选手的编号。

样例输入 Sample Input

2 4 2
7 6 6 7
10 5 20 15

样例输出 Sample Output

1

数据范围及提示 Data Size & Hint

数据范围
对于 30%的数据，1 ≤ N≤ 100；
对于 50%的数据，1 ≤ N≤ 10,000；
对于 100%的数据，1 ≤ N≤ 100,000，1 ≤ R≤ 50，1 ≤ Q≤ 2N，0 ≤ s1, s2, …, s2N ≤ 108，1 ≤ w1,w2, …, w2N ≤ 108。

解题思路

关于这个题……我只想笑笑不说话，第一次做这个题我果断选择r次快排，然后果断拿个50分，后来童鞋们告诉我，只需要建立两个数组，一个储存加分，一个储存不加分，在然后归并排序，把原来O(nlogn)的复杂度降到O(n),就可以轻松卡过最大值。再然后我顺利的敲出了代码，后来调试不过！！！这又是为什么呢？在经过艰苦卓绝的n遍调试之后我发现我的归并排序并没有把没有把没有在循环中进入原数组的值重新带回去，导致了错误！！！一定要在看一遍归并排序！！！

program Swiss;
type peo=record
    w,s,no:longint;
    end;
var pe:array[..] of peo;
    w,f:array[..] of peo;
    n,r,q1,i,j,sum:longint;

procedure sort(l,r: longint);//多关键字快排
      var
         i,j,x,y: longint;
      begin
         i:=l;
         j:=r;
         x:=pe[(l+r) div ].s;
         y:=pe[(l+r) div ].no;
         repeat
           while (pe[i].s>x) or ((x=pe[i].s) and (y>pe[i].no))do
            inc(i);
           while (x>pe[j].s) or ((x=pe[j].s) and (y<pe[j].no)) do
            dec(j);
           if not(i>j) then
             begin
                pe[]:=pe[i];
                pe[i]:=pe[j];
                pe[j]:=pe[];
                inc(i);
                j:=j-;
             end;
         until i>j;
         if l<j then
           sort(l,j);
         if i<r then
           sort(i,r);
      end;

procedure guibing;//归并
var q,p,sum1,k:longint;
begin
    q:=;
    p:=;
    sum1:=;
    while (q<=n) and (p<=n) do
    begin
    if (w[q].s>f[p].s) or ((w[q].s=f[P].s) and (w[q].no<f[p].no)) then
    begin
        inc(sum1);
        pe[sum1]:=w[q];
        inc(q);
    end;
    if (w[q].s<f[p].s) or ((w[q].s=f[P].s) and (w[q].no>f[p].no)) then
    begin
        inc(sum1);
        pe[sum1]:=f[p];
        inc(p);
    end;
    end;
    if q=n+ then//错在这里真丢人
       for k:=p to n do
       begin
           inc(sum1);
           pe[sum1]:=f[k];
       end
       else
       for k:=q to n do
       begin
           inc(sum1);
           pe[sum1]:=w[k];
       end;
end;

begin

    read(n,r,q1);
    for i:= to *n do pe[i].no:=i;
    for i:= to *n do read(pe[i].s);
    for i:= to *n do read(pe[i].w);

    sort(,*n);
    pe[].no:=;
    for j:= to r do
    begin
        i:=;
        sum:=;
        while i<=*n do
        begin
            inc(sum);
            if pe[i].w>pe[i+].w then
            begin
                inc(pe[i].s);
                w[sum]:=pe[i];
                f[sum]:=pe[i+];
            end
            else
            begin
                inc(pe[i+].s);
                w[sum]:=pe[i+];
                f[sum]:=pe[i];
            end;
            i:=i+;

        end;
         guibing;
    end;
    writeln(pe[q1].no);
end.