题目描述 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。
题解：
归并（禁用快排，否则超时）。
开始想了一想，和决定累积分数后快排，结果发现时间复杂度是o（m*n log n*2），超时了！没办法，换个思路，就想到了归并排序！有人要问了，归并有什么用！我觉得每一次把赢家归到左区间（1~n），输者归到右区间（n+1~2n），这样就保证了这两个区间都已经排好，只需要o（n）归并一下就行了（代码较长，没办法）。
type ji=record
x,y,z:longint;
end;
var n,m,x,i,j:longint;
a,b:array[0..200001]of ji;
function bj(x,y:ji):boolean;
begin
if x.x=y.x then exit(x.z<y.z);
exit(x.x>y.x);
end;
procedure guibing(x,y:longint);
var i,j,k,m:longint;
begin
m:=(x+y)div 2;
i:=x;
j:=m+1;
k:=x;
while (i<=m)and(j<=y) do
begin
if bj(a[i],a[j]) then
begin
b[k]:=a[i];
inc(i);
end
else
begin
b[k]:=a[j];
inc(j);
end;
inc(k);
end;
while i<=m do
begin
b[k]:=a[i];
inc(k);
inc(i);
end;
while j<=y do
begin
b[k]:=a[j];
inc(k);
inc(j);
end;
for i:=x to y do a[i]:=b[i];
end;
procedure pai(x,y:longint);
var m:longint;
begin
if x=y then exit;
m:=(x+y)div 2;
pai(x,m);
pai(m+1,y);
guibing(x,y);
end;
begin
readln(n,m,x);
n:=n*2;
for i:=1 to n do read(a[i].x);
for i:=1 to n do read(a[i].y);
for i:=1 to n do a[i].z:=i;
pai(1,n);
for i:=1 to m do
begin
for j:=1 to n div 2 do
begin
if a[j*2-1].y<a[j*2].y then
begin
a[0]:=a[j*2-1];
a[j*2-1]:=a[j*2];
a[j*2]:=a[0];
end;
b[j]:=a[j*2-1];
b[n div 2+j]:=a[j*2];
inc(b[j].x);
end;
a:=b;
guibing(1,n);
end;
write(a[x].z);
end.