poj之旅——3258

可见为2016noip提高组day2的第一题。

题目见此

思想：二分答案，判断是否可行。

程序：

var

  a,b:array[0..110000]of longint;
  i,l,r,ln,n,m,mid:longint;
function check(k:longint):boolean;
var
  i,lst,ned:longint;
begin
  lst:=0;ned:=0;
  for i:=1 to n+1 do
   if a[i]-a[lst]<k then ned:=ned+1 else lst:=i;
  exit(ned<=m);
end;
procedure kp(l,r:longint);
var
  i,j,x,t:longint;
begin
  i:=l;j:=r;x:=a[(l+r)shr 1];
  repeat
    while a[i]<x do i:=i+1;
    while a[j]>x do j:=j-1;
    if i<=j then
     begin
       t:=a[i];a[i]:=a[j];a[j]:=t;
       i:=i+1;j:=j-1;
     end;
  until i>j;
  if i<r then kp(i,r);
  if j>l then kp(l,j);
end;
begin
  readln(ln,n,m);
  for i:=1 to n do read(a[i]);a[n+1]:=ln; 
  kp(1,n);
  l:=0;r:=ln;
  while l<=r do
   begin
     mid:=(l+r)shr 1;
     if check(mid) then l:=mid+1
      else r:=mid-1;
   end;
  write(l);
end.