问题描述
博览馆正在展出由世上最佳的 M 位画家所画的图画。 wangjy 想到博览馆去看这几位大师的作品。
可是，那里的博览馆有一个很奇怪的规定，就是在购买门票时必须说明两个数字， a 和 b ，代表他要看展览中的第 a 幅至第 b 幅画 ( 包含 a 和 b) 之间的所有图画，而门票的价钱就是一张图画一元。
为了看到更多名师的画， wangjy 希望入场后可以看到所有名师的图画 ( 至少各一张 ) 。
可是他又想节省金钱。。。
作为 wangjy 的朋友，他请你写一个程序决定他购买门票时的 a 值和 b 值。
输入格式
第一行是 N 和 M ，分别代表博览馆内的图画总数及这些图画是由多少位名师的画所绘画的。
其后的一行包含 N 个数字，它们都介于 1 和 M 之间，代表该位名师的编号。
输出格式
a 和 b(a<=b) 由一个空格符所隔开。
保证有解，如果多解，输出 a 最小的。
输入输出样例
输入：
exhibit.in
12 5
2 5 3 1 3 2 4 1 1 5 4 3
输出：
exhibit.out
2 7
约束条件
30%的数据N<=200 , M<=20
60%的数据N<=10000 , M<=1000
100%的数据N<=1000000 , M<=2000
思路
并没有什么明确的算法，只要分析清楚了就可以很轻松的写对。
很显然有这样一个性质，这个数列的最左端的那个名师的作品一定只出现一次，否则就可以左端点右移一位了。一边读入一边维护一个数组b，表示这个名师的作品个数，t表示总共有多少位名师了。然后如果最左端的名师的b值不是1，就说明当前一定不是最优解，左端点右移一位，同时维护b。记录下所有答案中的最优的那个就是答案。
var i,j,m,n,a,b,p,q,sm:longint;
f,qq,w:array[..]of longint;
begin
assign(input,'exhibit.in');
reset(input);
assign(output,'exhibit.out');
rewrite(output);
readln(n,m);
for i:= to n do
begin
read(f[i]);
if w[f[i]]<> then qq[i]:=w[f[i]];
w[f[i]]:=i;
end;
b:=n;
a:=n;
for i:= to m do if w[i]<a then a:=w[i];
while qq[b]>a do dec(b);
p:=a;q:=b;sm:=q-p+;
while qq[b]> do
begin
a:=qq[b];
dec(b);
while qq[b]>a do dec(b);
if b-a+<=sm then begin sm:=b-a+;p:=a;q:=b;end;
end;
writeln(p,' ',q);
close(input);
close(output);
end.