jzoj 2544. 【NOIP2011模拟9.3】作弊的发牌者

发布于 2019-03-26  7 次阅读


题目描述

 贝茜正在与她的N-1(2 <= N <= 100)个朋友打牌。她们玩的牌一副为K(N<=K<=100,000,K 为N 的倍数)张。所有牌中,一共有M(M = K/N)张“好牌”,其余的K-M 张为“差牌”。贝茜是游戏的发牌者,很自然地,她想把所有好牌都留给自己。她热衷于
获胜,即使为此必须采取一些不正当的手段。
  在若干局游戏后,贝茜的朋友们开始怀疑贝茜在游戏中作弊,于是她们想了个对策:使用新的发牌规则。规则具体如下:
  1. 贝茜把牌堆的最上面一张发给她右边的奶牛;
  2. 每当贝茜发完一张牌,她都得将牌堆顶部接下来的P(1 <= P <= 10)张牌放到底部去(一般把这个操作称为切牌);
  3. 然后,贝茜对逆时针方向的下一头奶牛重复上述的操作;
  贝茜绝望地认为,她再也不可能获胜了,于是她找到了你,希望你告诉她,将好牌放在初始牌堆的哪些位置,能够确保它们在发完牌后全集中到她手里。顺带说明一下,我们把牌堆顶的牌定义为1 号牌,从上往下第二张定义为2 号牌,依此类推。

输入

  第1 行: 3 个用空格隔开的整数:N、K,以及P

输出

 贝茜和她的某两个朋友在打一副总共是9 张的牌。她每发出一张牌后,都得在牌堆顶部取出两张放到堆底。

思路

暴力模拟,然后数组开大一点就可以了,都怪@qq_34593871(′д` )…彡…彡害的我错了好久

var
  a:array[-1..4000000] of longint;
  b:array[-1..4000000] of longint;
  p,i,j,k,n,m,s,x,y,z,o:longint;
procedure xx(l,r:longint);
var
  i,j,mid,t:longint;
begin
  i:=l;
  mid:=b[(l+r) div 2];
  j:=r;
  repeat
    while b[i]mid do dec(j);
    if i<=j then
      begin
        t:=b[i]; b[i]:=b[j]; b[j]:=t;
        inc(i); dec(j);
      end;
  until i>j;
  if j>l then xx(l,j);
  if i
]]>