jzoj 1897. 【2014.8.17NOIP普及组模拟】愤怒的牛

最新推荐文章于 2024-08-08 13:50:51 发布

coz_Indira

最新推荐文章于 2024-08-08 13:50:51 发布

阅读量795

点赞数

分类专栏：二分

本文链接：https://blog.csdn.net/coz_Indira/article/details/52289338

版权

二分专栏收录该内容

1 篇文章 0 订阅

订阅专栏

题目描述

Farmer John建造了一个有N(2<=N<=100,000)个隔间的牛棚，这些隔间分布在一条直线上，坐标是x1,...,xN (0<=xi<=1,000,000,000)。

他的C(2<=C<=N)头牛不满于隔间的位置分布，它们为牛棚里其他的牛的存在而愤怒。为了防止牛之间的互相打斗，Farmer John想把这些牛安置在指定的隔间，所有牛中相邻两头的最近距离越大越好。那么，这个最大的最近距离是多少呢？

二分找答案

const
  maxn=100000;
var
  a:array[0..maxn] of longint;
  n,l,r,c:longint;

procedure init;
var
  i:longint;
begin
  readln(n,c);
  for i:=1 to n do
    readln(a[i]);
end;

procedure qsort(l,r:longint);
var
  i,j,k:longint;
begin
  if l>=r then exit;
  i:=l;j:=r;
  k:=a[(l+r) div 2];
  repeat
    while a[i]<k do inc(i);
    while a[j]>k do dec(j);
    if i<=j then
      begin
        a[0]:=a[i];a[i]:=a[j];a[j]:=a[0];
        inc(i);dec(j);
      end;
  until i>j;
  qsort(i,r);qsort(l,j);
end;

function find(x:longint):boolean;
var
  i,j,k:longint;
begin
  k:=1;
  j:=a[1]+x;
  for i:=2 to n do
    while j<=a[i] do
      begin
        inc(k);
        j:=a[i]+x;
        if k=c then break;
      end;
      if k>=c then exit(true) else exit(false);
end;

begin
  assign(input,'aggr.in'); reset(input);
  assign(output,'aggr.out');rewrite(output);
  init;
  qsort(1,n);
  l:=1;
  r:=(a[n]-a[1]) div (c-1);
  while l<r do
   begin
    if find((l+r) div 2)
      then l:=(l+r) div 2
      else r:=(l+r) div 2;
    if l+1=r then break;
   end;
  if find(r) then writeln(r)
    else writeln(l);
  close(input);close(output);
end.