最小最大和 (Standard IO)

最新推荐文章于 2023-09-18 23:31:28 发布

原创最新推荐文章于 2023-09-18 23:31:28 发布 · 197 阅读

0 ·

CC 4.0 BY-SA版权

本文介绍了一个游戏策略问题，其中Alice和Bob轮流进行游戏，每轮Bob给出两个整数A和B，要求Alice将所有A序列和B序列中的数一一配对以达到最大和最小的目标。文章提供了详细的解题思路及实现代码。

题意/Description:

Alice和Bob在玩一个游戏，每一轮Bob都会给Alice两个整数A和B(1<=A,B<=100)，Alice每一轮必须把目前所有的A序列和B序列中的数一一配对，每个数必须用且只使用一次，要求最大和最小。

读入/Input：

第一行一个整数N(1<=N<=100000)，表示比赛的轮数。
　　接下来N行每行包含两个整数A和B(1<=A,B<=100)，表示Bob这一轮给的两个数。

输出/Output：

输出N行，每行输出最小的最大和。

题解/solution：

看到n很大，就崩溃了。不过a和b只有100，自信的打了一个桶排。说到这，后面就暴力吧。

点赞......

代码/Code：

var
  n,max:longint;
  a,b,c,d:array [-100..201] of longint;
procedure init;
var
  x,y,k,i,j:longint;
begin
  readln(n);
  for k:=1 to n do
    begin
      readln(x,y);
      inc(c[x]); inc(d[y]);
      a:=c; b:=d;
      i:=1; j:=100; max:=0;
      while 1=1 do
        begin
          while (a[i]=0) and (i<110) do inc(i);
          while (b[j]=0) and (j>-10) do dec(j);
          if (i>100) and (j<0) then break;
          if a[i]>b[j] then
            begin
              a[i]:=a[i]-b[j];
              b[j]:=0;
            end else
            begin
              b[j]:=b[j]-a[i];
              a[i]:=0;
            end;
          if i+j>max then max:=i+j;
        end;
      writeln(max);
    end;
end;

begin
  init;
end.