[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.