2011瑞士轮

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了2011瑞士轮相关的知识,希望对你有一定的参考价值。

题目描述 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.

以上是关于2011瑞士轮的主要内容,如果未能解决你的问题,请参考以下文章

Noip2011瑞士轮题解

[NOIP2011]瑞士轮

瑞士轮(NOIP2011 普及组第三题)

NOIP2011 普及组 T3 洛谷P1309 瑞士轮

noip2011——普及组——瑞士轮

P1771 瑞士轮 归并排序