jzxx1521作弊的发牌者

最新推荐文章于 2023-07-14 16:27:22 发布

原创最新推荐文章于 2023-07-14 16:27:22 发布 · 900 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#Pascal #USACO #jzxx

Pascal 专栏收录该内容

27 篇文章

订阅专栏

本文介绍了USACO 2007 December Bronze题目的一个问题，贝茜在与朋友们打牌时试图作弊。新规则下，贝茜需要知道如何放置好牌以确保在发牌结束后全部集中在自己手中。问题涉及到数学和策略，要求在初始牌堆的特定位置放置好牌。输入包含N（玩家数量）、K（牌数）和P（切牌数），输出是好牌的初始位置。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

题目描述
贝茜正在与她的N-1(2 <= N <= 100)个朋友打牌。她们玩的牌一副为K(N <= K <= 100,000，K为N的倍数)张。所有牌中，一共有M(M = K / N)张“好牌”，其余的K - M张为“差牌”。贝茜是游戏的发牌者，很自然地，她想把所有好牌都留给自己。她热衷于获胜，即使为此必须采取一些不正当的手段。在若干局游戏后，贝茜的朋友们开始怀疑贝茜在游戏中作弊，于是她们想了个对策：使用新的发牌规则。规则具体如下：

贝茜把牌堆的最上面一张发给她右边的奶牛
每当贝茜发完一张牌，她都得将牌堆顶部接下来的P(1 <= P <= 10)张牌放到底部去（一般把这个操作称为切牌）
然后，贝茜对逆时针方向的下一头奶牛重复上述的操作贝茜绝望地认为，她再也不可能获胜了，于是她找到了你，希望你告诉她，将好牌放在初始牌堆的哪些位置，能够确保它们在发完牌后全集中到她手里。顺带说明一下，我们把牌堆顶的牌定义为1号牌，从上往下第二张定义为2号牌，依此类推。

输入

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

输出

第1…M行: 每行输出一个正整数，表示贝茜应该在初始牌堆的这个位置放一张好牌。所有的位置按升序输出。

样例输入
3 9 2
样例输出
3
7
8

来源
USACO 2007 December Bronze

传送门

满分代码：
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 inc(i);
    while b[j]>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<r then xx(i,r);
end;
begin
  readln(n,k,p);
  for i:=1 to k do
    a[i]:=i;
  x:=1;
  y:=k;
  j:=1;
  z:=1;
  for i:=1 to k do
    begin
      if j=n then
      begin
        j:=0;
        b[z]:=a[x];
        inc(z);
      end;
      inc(x);
      inc(j);
      if 1=1 then
        begin
          for o:=x to x+p-1 do
              begin
                a[y+o-x+1]:=a[o];
                a[o]:=0;
              end;
          x:=x+p;
          y:=y+p;
        end;
    end;
  xx(1,z-1);
  j:=1;
  for i:=1 to z-1 do
    writeln(b[i]);
end.