[SCOI2009]生日礼物（单调队列）

题目背景

四川2009NOI省选

题目描述

小西有一条很长的彩带，彩带上挂着各式各样的彩珠。已知彩珠有N个，分为K种。简单的说，可以将彩带考虑为x轴，每一个彩珠有一个对应的坐标(即位置)。某些坐标上可以没有彩珠，但多个彩珠也可以出现在同一个位置上。

小布生日快到了，于是小西打算剪一段彩带送给小布。为了让礼物彩带足够漂亮，小西希望这一段彩带中能包含所有种类的彩珠。同时，为了方便，小西希望这段彩带尽可能短，你能帮助小西计算这个最短的长度么？彩带的长度即为彩带开始位置到结束位置的位置差。

输入输出格式

输入格式：
第一行包含两个整数N, K，分别表示彩珠的总数以及种类数。接下来K行，每行第一个数为Ti，表示第i种彩珠的数目。接下来按升序给出Ti个非负整数，为这Ti个彩珠分别出现的位置。

输出格式：
输出应包含一行，为最短彩带长度。

输入输出样例

输入样例#1：
6 3
1 5
2 1 7
3 1 3 8
输出样例#1：
3
说明

【样例说明】

有多种方案可选，其中比较短的是1~5和5~8。后者长度为3最短。

【数据规模】

对于50%的数据， N≤10000；

对于80%的数据， N≤800000；

对于100%的数据，1≤N≤1000000，1≤K≤60，0≤Ti<231。

program df;
var i,j,n,m,x,y,z,k,t,l,r,max:longint;
a,b,c,d:array[0..1000000] of longint;//a数组记录位置，b数组记录种类
procedure sq(l,r:longint);
var i,j,mm,dd:longint;
begin
i:=l; j:=r;
mm:=a[random(r-l+1)+l];
repeat
while a[i]＜mm do inc(i);
while a[j]>mm do dec(j);
if i<=j then
begin
dd:=a[i]; a[i]:=a[j]; a[j]:=dd;
dd:=b[i]; b[i]:=b[j]; b[j]:=dd;
inc(i); dec(j);
end;
until i>j;
if l＜j then sq(l,j);
if i＜r then sq(i,r);
end;

begin
readln(n,m);
t:=0;
for i:=1 to m do
begin
read(x);
for j:=1 to x do
begin
inc(t);
read(a[t]);
b[t]:=i;
end;
end;
sq(1,n);
l:=1; r:=0; t:=0;
max:=maxlongint;
for i:=1 to n do
begin
inc(r);
c[r]:=a[i];
e[r]:=b[i];
inc(d[e[r]]);
if d[e[r]]=1 then inc(t); //若这种珠子第一次出现队列内则种类+1
while d[e[l]]>1 do //若队首的珠子种类在队列内出现过，则头指针+1
begin
dec(d[e[l]]);
inc(l);
end;
if (t=m) and (max>c[r]-c[l]) then max:=c[r]-c[l]; //满足条件时就比较最值
end;
writeln(max);
end.