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.