圆周舞蹈 (Standard IO)

最新推荐文章于 2022-07-21 10:13:02 发布

Kesiruto

最新推荐文章于 2022-07-21 10:13:02 发布

阅读量777

点赞数 3

分类专栏： 2016暑假中山文章标签： 1745

本文链接：https://blog.csdn.net/qq_34593871/article/details/51926647

版权

2016暑假中山专栏收录该内容

71 篇文章 0 订阅

订阅专栏

Description

　　熊大妈的奶牛在时针的带领下，围成了一个圆圈跳舞。由于没有严格的教育，奶牛们之间的间隔不一致。

　　奶牛想知道两只最远的奶牛到底隔了多远。奶牛A到奶牛B的距离为A顺时针走和逆时针走，到达B的较短路程。告诉你相邻两个奶牛间的距离，请你告诉奶牛两只最远的奶牛到底隔了多远。

题解：

用前缀和将环一分为二，再枚举答案。

代码：

var
  a:array[0..500000] of longint;
  n,min,max:longint;
procedure init;
var
  i,s:longint;
begin
  readln(n);
  for i:=2 to n+1 do
    begin
      readln(s);
      a[i]:=a[i-1]+s;
    end;
  for i:=n+2 to 2*n do
    a[i]:=a[n+1]+a[i-n];
end;
procedure main;
var
  i,l,r,mid,x,y,s:longint;
begin
  for i:=1 to n do
    begin
      l:=i;r:=n+i;
      min:=maxlongint;
      while l<=r do
        begin
          mid:=(l+r) div 2;
          x:=a[mid]-a[i];
          y:=a[n+i]-a[mid];
          if abs(x-y)<mid then
            begin
              mid:=abs(x-y);
              if x<y then
                s:=x
              else s:=y;
              if s>max then max:=s;
            end;
          if l=mid then break;
          if x<y then
            l:=mid
          else r:=mid;
        end;
      x:=a[r]-a[i];
      y:=a[n+i]-a[r];
      if  abs(x-y)<min then
        begin
          min:=abs(x-y);
          if  x<y then
            s:=x
          else
            s:=y;
          if s>max then max:=s;
        end;
    end;
end;
begin
  init;
  main;
end.