比赛 NOIP_1 评测结果 AAAATTTTTT
题目名称 画展 最终得分 40
用户昵称 rottenwood 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2009-07-20 10:29:41
显示代码纯文本
program exhibit;
var
s:array[1..1000000] of longint;
f:array[1..2000] of integer;
i,j,k,m,n,min,tou,wei:longint;
flag:boolean;
begin
assign(input,'exhibit.in');reset(input);
assign(output,'exhibit.out');rewrite(output);
readln(n,m);
min:=maxint;
for i:=1 to n do
read(s[i]);
i:=0;
while i<n-m+1 do
begin
inc(i);
 for j:=i to n do
 begin
 inc(f[s[j]]);
 flag:=false;
 for k:=1 to m do if f[k]<1 then flag:=true;
 if not flag then begin if j-i+1<min then begin min:=j-i+1;
                        tou:=i; wei:=j;  end;
                        for k:=1 to m do f[k]:=0; break; end;
 end;
end;
writeln(tou,' ',wei);
close(output);
end.