bzoj 1034 伪田忌赛马

最新推荐文章于 2019-09-18 16:37:00 发布

原创最新推荐文章于 2019-09-18 16:37:00 发布 · 631 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#bzoj #贪心 #田忌赛马

bzoj 同时被 3 个专栏收录

160 篇文章

订阅专栏

贪心

25 篇文章

订阅专栏

“田忌赛马”

1 篇文章

订阅专栏

本文介绍了一种基于田忌赛马策略的比赛得分优化方法，通过排序和匹配对手的策略来最大化自己的得分。文章提供了详细的步骤说明及示例代码。

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

其实，它就是田忌赛马的那个套路=。=

能赢不平，能平不输

先都排序，

然后小的能赢就让它赢，小的赢不了的话就去看大的，大的能赢就赢呗=。=

然后小的也赢不了大的也也不了就让小的输给他一个大的（注意判断一下平局）反正小的也没用，大的还可以赢

得出最大得分=。=

易知，无论双方输赢如何，n局的双方总得分是一定的即2*n 分，所以最小的分=2*n-对方最大得分

var
    n,ans               :longint;
    i,j,k,l             :longint;
    a,b                 :array[0..100010] of longint;
procedure sort1(l,r:longint);
var
         i,j,x,y: longint;
begin
         i:=l;
         j:=r;
         x:=a[(l+r) div 2];
         repeat
           while a[i]<x do inc(i);
           while x<a[j] do dec(j);
           if not(i>j) then
             begin
                y:=a[i];
                a[i]:=a[j];
                a[j]:=y;
                inc(i);
                j:=j-1;
             end;
         until i>j;
         if l<j then sort1(l,j);
         if i<r then sort1(i,r);
end;
//
procedure sort2(l,r:longint);
var
         i,j,x,y: longint;
begin
         i:=l;
         j:=r;
         x:=b[(l+r) div 2];
         repeat
           while b[i]<x do inc(i);
           while x<b[j] do dec(j);
           if not(i>j) then
             begin
                y:=b[i];b[i]:=b[j];b[j]:=y;
                inc(i);j:=j-1;
             end;
         until i>j;
         if l<j then sort2(l,j);
         if i<r then sort2(i,r);
end;

begin
   read(n);
   for i:=1 to n do read(a[i]);
   for i:=1 to n do read(b[i]);
   sort1(1,n);
   sort2(1,n);
   //
   i:=1;j:=1;l:=n;k:=n;ans:=0;
   while (i<=l) and (j<=k) do
   begin
      if (a[i]>b[j]) then
      begin
         inc(i);inc(j);inc(ans,2);
      end else
      if (a[l]>b[k]) then
      begin
         dec(l);dec(k);inc(ans,2);
      end else
      begin
         if (a[i]=b[k]) then inc(ans);
         inc(i);dec(k);
      end;
   end;
   write(ans,' ');
   //
   ans:=0;
   i:=1;j:=1;l:=n;k:=n;
   while (i<=l) and (j<=k) do
   begin
      if (b[j]>a[i]) then
      begin
         inc(ans,2);inc(i);inc(j);
      end else
      if (b[k]>a[l]) then
      begin
         inc(ans,2);dec(l);dec(k);
      end else
      begin
         if b[j]=a[l] then inc(ans);
         inc(j);dec(l);
      end;
   end;
   writeln(2*n-ans);
end.

——by Eirlys
转载请注明出处=w=