记录编号 54301 评测结果 AAAAAAAAAAA
题目名称 [USACO Dec07] 洗牌作弊 最终得分 100
用户昵称 GravatarOEE_ZFF 是否通过 通过
代码语言 Pascal 运行时间 0.037 s
提交时间 2013-03-09 18:01:05 内存使用 7.99 MiB
显示代码纯文本
var i,j,k,l,m,n,p,head,tail:longint;
team:array[1..2000000]of longint;
ans:array[1..50000]of longint;

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

begin
  assign(input,'cheat.in');
  assign(output,'cheat.out');
  reset(input);
  rewrite(output);
  readln(n,k,p);
  m:=k div n;
  tail:=k;
  for i:=1 to k do team[i]:=i;
  for i:=1 to m do
    for j:=1 to n do
    begin
      inc(head);
      if j=n then ans[i]:=team[head];
      for l:=1 to p do team[tail+l]:=team[head+l];
      inc(head,p);
      inc(tail,p);
    end;
  sort(1,m);
  for i:=1 to m do writeln(ans[i]);
  close(input);
  close(output);
end.