JZOJ8.12（C组）作弊的发牌者

题目：

贝茜正在与她的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 号牌，依此类推。

分析：

这题一看数据并不大就直接纯模拟啦。

附上代码：

const
  maxn=100000;

var
  ans,data:array [0..maxn] of longint;
  v:array [0..maxn] of boolean;
  bj,n,k,p:longint;

procedure init;
var
  i:longint;
begin
  readln(n,k,p);
  for i:=1 to k do
    data[i]:=i;
end;

procedure main;
var
  i,j,temp,test:longint;
begin
  temp:=0;
  fillchar(v,sizeof(v),true);
  i:=1;
  while temp<>k div n do
    begin
      if (bj+1) mod n=0 then
        begin
          while not v[i] do
            begin
              inc(i);
              if i>k then
                i:=i-k;
            end;
          inc(temp);
          ans[temp]:=data[i];
        end;
      if v[i] then
        v[i]:=false
      else
        begin
          while not v[i] do
            begin
              inc(i);
              if i>k then
                i:=i-k;
            end;
          v[i]:=false;
        end;
      inc(bj);
      inc(i);
      if i>k then
        dec(i,k);
      test:=0;
      while test<>p do
        begin
          if temp=k div n then
            break;
          if v[i] then
            inc(test);
          inc(i);
          if i>k then
            dec(i,k);
        end;
    end;
end;

procedure qsort(l,r:longint);
var
  i,j,k,mid:longint;
begin
  i:=l;
  j:=r;
  mid:=ans[(l+r) shr 1];
  repeat
    while ans[i]<mid do
      inc(i);
    while ans[j]>mid do
      dec(j);
    if i<=j then
      begin
        k:=ans[i];
        ans[i]:=ans[j];
        ans[j]:=k;
        inc(i);
        dec(j);
      end;
  until i>j;
  if l<j then
    qsort(l,j);
  if i<r then
    qsort(i,r);
end;


procedure print;
var
  i:longint;
begin
  qsort(1,k div n);
  for i:=1 to k div n do
    writeln(ans[i]);
end;

begin
  init;
  main;
  print;
end.