【NOIP2011PJ】瑞士轮

题目描述

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

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

输入

输入的第一行是三个正整数 N、R、Q，每两个数之间用一个空格隔开，表示有2*N 名选手、R 轮比赛，以及我们关心的名次Q。

第二行是 2*N 个非负整数s1, s2, …, s2N，每两个数之间用一个空格隔开，其中si 表示编号为i 的选手的初始分数。

第三行是 2*N 个正整数w1, w2, …, w2N，每两个数之间用一个空格隔开，其中wi 表示编号为i 的选手的实力值。

输出

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

样例输入

2 4 2
7 6 6 7
10 5 20 15

样例输出

1
提示

【数据范围】

对于 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。

TJ

这道题不需要说太多，只是第一轮用快排排序，之后每轮过后都记录赢的和输的，再归并即可。

BC

var
        n,i,r,q,j,t:longint;
        f,f1,f2,a:array[1..200000,1..3]of longint;
procedure kp(l,r:longint);
var
        i,j,mid,mid1:longint;
        t:array[1..3]of longint;
begin
        i:=l;
        j:=r;
        mid:=a[(l+r)div 2,1];
        mid1:=a[(l+r)div 2,3];
        repeat
                {
                while a[i,1]>mid do inc(i);
                while a[j,1]<mid do dec(j);
                }
                while(a[i,1]>mid)or(a[i,1]=mid)and(a[i,3]<mid1) do inc(i);
                while(a[j,1]<mid)or(a[j,1]=mid)and(a[j,3]>mid1) do dec(j);
                if i<=j then
                begin
                        t:=a[i];
                        a[i]:=a[j];
                        a[j]:=t;
                        inc(i);
                        dec(j);
                end;
        until i>j;
        if l<j then kp(l,j);
        if i<r then kp(i,r)
end;
procedure GUIBING;
var
        i,j,t1,t2,t3:longint;
begin
        t1:=1;
        t2:=1;
        t3:=0;
        while (t1<=t)and(t2<=t)do
        begin
                if(f[t1,1]>f1[t2,1])or((f[t1,1]=f1[t2,1])and(f[t1,3]<f1[t2,3]))then
                begin
                        inc(t3);
                        f2[t3,1]:=f[t1,1];
                        f2[t3,2]:=f[t1,2];
                        f2[t3,3]:=f[t1,3];
                        inc(t1);
                end
                else
                begin
                        inc(t3);
                        f2[t3,1]:=f1[t2,1];
                        f2[t3,2]:=f1[t2,2];
                        f2[t3,3]:=f1[t2,3];
                        inc(t2);
                end;
        end;
        while t1<=t do
        begin
                if t1>t then break;
                inc(t3);
                f2[t3,1]:=f[t1,1];
                f2[t3,2]:=f[t1,2];
                f2[t3,3]:=f[t1,3];
                inc(t1);
                if t1>t then break;
        end;
        while t2<=t do
        begin
                if t2>t then break;
                inc(t3);
                f2[t3,1]:=f1[t2,1];
                f2[t3,2]:=f1[t2,2];
                f2[t3,3]:=f1[t2,3];
                inc(t2);
                if t2>t then break;
        end;
        for i:=1 to t3 do
        begin
                //writeln(i);
                a[i,1]:=f2[i,1];
                a[i,2]:=f2[i,2];
                a[i,3]:=f2[i,3];
                //writeln(a[i,1],' ',a[i,2],' ',a[i,3]);
        end;
end;
begin
        assign(input,'rsl.in');reset(input);
        assign(output,'rsl.out');rewrite(output);
        readln(n,r,q);
        n:=n*2;
        for i:=1 to n do
        begin
                read(a[i,1]);
                a[i,3]:=i;
        end;
        readln;
        for i:=1 to n do
        begin
                read(a[i,2]);
                a[i,3]:=i;
        end;
        kp(1,n);
        for i:=1 to r do
        begin
                j:=1;
                t:=0;
                while j<n do
                begin
                        if j>=n then break;
                        if a[j,2]>=a[j+1,2] then
                        begin
                                inc(t);
                                f[t,1]:=a[j,1]+1;
                                f[t,2]:=a[j,2];
                                f[t,3]:=a[j,3];
                                f1[t,1]:=a[j+1,1];
                                f1[t,2]:=a[j+1,2];
                                f1[t,3]:=a[j+1,3];
                        end
                        else
                        begin
                                inc(t);
                                f[t,1]:=a[j+1,1]+1;
                                f[t,2]:=a[j+1,2];
                                f[t,3]:=a[j+1,3];
                                f1[t,1]:=a[j,1];
                                f1[t,2]:=a[j,2];
                                f1[t,3]:=a[j,3];
                        end;
                        inc(j,2);
                end;
                GUIBING;
        end;
        kp(1,n);
        writeln(a[q,3]);
        close(input);close(output);
end.