【题目描述】 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.转载于:https://www.cnblogs.com/JRX2015U43/p/6533509.html
