Noip 2015 D2T1 跳石头

一年一度的“跳石头”比赛又要开始了！

这项比赛将在一条笔直的河道中进行，河道中分布着一些巨大岩石。组委会已经选择好了两块岩石作为比赛起点和终点。在起点和终点之间，有 N 块岩石（不含起点和终点的岩石）。在比赛过程中，选手们将从起点出发，每一步跳向相邻的岩石，直至到达终点。

为了提高比赛难度，组委会计划移走一些岩石，使得选手们在比赛过程中的最短跳跃距离尽可能长。由于预算限制，组委会至多从起点和终点之间移走 M 块岩石（不能移走起点和终点的岩石）。

---------------------------------------------------------------------------------------------分割线----------------------------------------------------------------------------------------

求最小值得最大值这类题型一般直接二分答案。（二分时注意mid的取值，不然有可能死循环）

var
  n,i,l,min,max,m:longint;
  d:array[0..50000] of longint;
procedure p1;
begin
  assign(input,'stone.in');
  assign(output,'stone.out');
  reset(input);
  rewrite(output);
end;

procedure p2;
begin
  close(input);
  close(output);
end;
function check(x:longint):boolean;
var
  last,i,ans:longint;
begin
  last:=0;ans:=0;
  for i:=1 to n do
    if d[i]-last<x then inc(ans)
    else last:=d[i];
  exit(ans<=m);
end;

function work(l,r:longint):longint;
var
  mid:longint;
begin
  if l=r then exit (l);
  mid:=(l+r+1) shr 1;
  if check(mid) then exit(work(mid,r)) else exit(work(l,mid-1));
end;

begin
  p1;
  read(l,n,m);
  min:=maxlongint;d[0]:=0;inc(n);
  for i:=1 to n do begin
    if i<n then read(d[i]) else d[i]:=l;
    if d[i]-d[i-1]<min then min:=d[i]-d[i-1];
  end;
  max:=l div (n-m);
  writeln(work(min,max));
  p2;
end.