与众不同1
【题目描述】
A是某公司的CEO，每个月都会有员工把公司的盈利数据送给A，A是个与众不同的怪人，A不注重盈利还是亏本，而是喜欢研究“完美序列”：连续的互不相同的序列。A想知道区间[1,R]之间最长的完美序列。
【输入格式】
第一行两个整数N，M(1<=N,M<=2000000)，N表示连续N个月,编号为0到N-1，M表示询问的次数。第二行N个整数(绝对值不超过10^6),第i个数表示该公司第i个月的盈利值。接下来M行每行一个整数R(0<=R<=N-1),表示A询问的区间。
【输出格式】
输出M行，每行一个整数对应询问区间内的完美序列的最长长度。
【样例输入】
9 3
2 5 4 1 2 3 6 2 4
4
9
6
【样例输出】
4
6
5
【分析】
设last[x]为数x当前最近出现的位置，st[i]为以第i个数为终点的最长完美序列的起点序号，q[i]表示以第i个数为终点的最长完美序列的长度。
uses math;
var
a,st,last,q:array[-1000001..1000001]of longint;
i,ans,n,m,r:longint;
begin
readln(n,m);
for i:=1 to n do begin
read(a[i]);
st[i]:=max(st[i-1],last[a[i]]+1);
last[a[i]]:=i;
ans:=max(ans,i-st[i]+1);
q[i]:=ans;
end;
for i:=1 to m do begin
readln(r);
writeln(q[r]);
end;
end.