[NOIP 향상 팀] 선택 문제.

Description
맥 레 앞 에는 N 개의 수 와 R * C 의 행렬 이 있다.현재 그의 임 무 는 N 개 수 에서 R * C 개 를 꺼 내 이 행렬 에 채 우 는 것 이다.행렬 의 각 줄 의 법 값 은 본 줄 의 최대 값 과 최소 값 의 차이 이 고 전체 행렬 의 법 값 은 각 줄 의 법 값 의 최대 값 이다.현재 맥 레이 는 행렬 의 최소 법 값 이 얼마 인지 알 고 싶 어 한다.
Solution
분명히 정렬 한 후에 답 을 선택 하 는 것 은 답 에 영향 을 주지 않 을 것 이다. 문 제 를 분석 한 후에 뚜렷 한 성질 을 발견 할 수 있다. 특정한 숫자 에 대해 한 줄 에서 가장 작은 값 이 라 고 가정 하면 질서 있 는 서열 에서 최대 치 는 반드시 그의 위치 - C + 1 의 그 숫자 이다.2 분 의 답 을 생각 했 지만 직접 2 분 의 복잡 도 는 log 109 이기 때문에 우 리 는 이웃 의 차 이 를 처리 할 수 있 고 그 중에서 2 분 의 차 이 를 처리 할 수 있다.하나의 질서 있 는 서열 에서 현재 값 을 특정한 줄 의 최소 값 으로 할 때 차이 가 2 분 보다 적 으 면 반드시 가장 좋 은 것 을 선택 하고 통계 가 몇 개의 만족 하 는 구간 이 있 는 지 증명 하기 쉽다. 만약 에 수량 ≥ R 이 라면 합 법 적 이 고 구간 이 중첩 되 지 않도록 주의해 야 한다.
Code

var
    a,f:array[0..500000] of longint;
    n,p,q,i,l,r,mid,ans,sum:longint;
procedure qsort(l,r:longint);
var i,j,mid:longint;
begin
    i:=l;j:=r;
    mid:=a[(l+r)div 2];
    repeat
        while a[i]do inc(i);
        while middo 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;
if ithen qsort(i,r);
if lthen qsort(l,j);
end;
function pd(x:longint):boolean;
var i:longint;
begin
sum:=0;i:=0;
while i1 do
begin
inc(i);
if f[i]>x then continue;
inc(sum);i:=i+q-1;
if sum>=p then exit(true);
end;
if sum>=p then exit(true);exit(false);
end;
begin
readln(n,p,q);
for i:=1 to n do read(a[i]);
qsort(1,n);
for i:=1 to n-q+1 do
begin
f[i]:=a[i+q-1]-a[i];
a[i]:=a[i+q-1]-a[i];
end;
qsort(1,n-1);
l:=1;r:=n-1;
while ldo
begin
mid:=(l+r)div 2;
if pd(a[mid]) then
begin
ans:=a[mid];
r:=mid-1;
end else l:=mid+1;
end;
if pd(a[l]) and(ans>a[l]) then ans:=a[l];
writeln(ans);
end.