【NOIP2011模拟9.3】作弊的发牌者 (Standard IO)

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


题解:

模拟,把移动到后方的牌放在数组后面。

代码:

var
  a:array[0..4000000] of longint;
  b:array[0..100000] of longint;
  n,k,p,t,s,f:longint;
procedure sort(i,j:longint);
var
  l,r,m:longint;
begin
  l:=i;
  r:=j;
  m:=b[(i+j) shr 1];
  repeat
    while b[i]<m do inc(i);
    while b[j]>m do dec(j);
    if i<=j then
      begin
        b[0]:=b[i];
        b[i]:=b[j];
        b[j]:=b[0];
        inc(i);
        dec(j);
      end;
  until i>j;
  if i<r then sort(i,r);
  if l<j then sort(l,j);
end;
var
  i,l:longint;
begin
  readln(n,k,p);
  t:=1;l:=1;
  for i:=1 to k do
    a[i]:=i;
  for i:=1 to k do
     begin
       f:=(i-1)*(p+1)+1;
       if t=n then
         begin
           b[l]:=a[f];
           inc(l);
           t:=0;
         end;
       a[f]:=0;
       for s:=1 to p do
         begin
           a[k+(i-1)*p+s]:=a[f+s];
           a[s+f]:=0;
         end;
       inc(t);
     end;
  sort(1,l-1);
  for i:=1 to l-1 do
    writeln(b[i]);
end.


  • 1
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值