poj3320 Jessica's Reading Problem

Description

Jessica's a very lovely girl wooed by lots of boys. Recently she has a problem. The final exam is coming, yet she has spent little time on it. If she wants to pass it, she has to master all ideas included in a very thick text book. The author of that text book, like other authors, is extremely fussy about the ideas, thus some ideas are covered more than once. Jessica think if she managed to read each idea at least once, she can pass the exam. She decides to read only one contiguous part of the book which contains all ideas covered by the entire book. And of course, the sub-book should be as thin as possible.

A very hard-working boy had manually indexed for her each page of Jessica's text-book with what idea each page is about and thus made a big progress for his courtship. Here you come in to save your skin: given the index, help Jessica decide which contiguous part she should read. For convenience, each idea has been coded with an ID, which is a non-negative integer.

Input

The first line of input is an integer P (1 ≤ P ≤ 1000000), which is the number of pages of Jessica's text-book. The second line contains P non-negative integers describing what idea each page is about. The first integer is what the first page is about, the second integer is what the second page is about, and so on. You may assume all integers that appear can fit well in the signed 32-bit integer type.

Output

Output one line: the number of pages of the shortest contiguous part of the book which contains all ideals covered in the book.

Sample Input

5
1 8 8 8 1

Sample Output

2

Source

POJ Monthly--2007.08.05, Jerry

 

 

 

题目大意：

离散化+尺取乱搞

program rrr(input,output);
var
  a,b,c:array[0..1000010]of longint;
  n,m,i,j,ans,l,r,mid:longint;
function min(a,b:longint):longint;
begin
   if a<b then exit(a) else exit(b);
end;
procedure sort(q,h:longint);
var
  i,j,x,t:longint;
begin
   i:=q;j:=h;x:=b[(i+j)>>1];
   repeat
     while b[i]<x do inc(i);
     while x<b[j] do dec(j);
     if i<=j then
        begin
           t:=b[i];b[i]:=b[j];b[j]:=t;
           inc(i);dec(j);
        end;
   until i>j;
   if j>q then sort(q,j);
   if i<h then sort(i,h);
end;
function find(x:longint):longint;
begin
   l:=1;r:=m;
   while l<r-1 do
      begin
         mid:=(l+r)>>1;
         if b[mid]>x then r:=mid-1 else l:=mid;
      end;
   if b[l]=x then exit(l) else exit(r);
end;
begin
   assign(input,'r.in');assign(output,'r.out');reset(input);rewrite(output);
   readln(n);
   for i:=1 to n do begin read(a[i]);b[i]:=a[i]; end;
   sort(1,n);
   m:=1;for i:=2 to n do if b[i]<>b[i-1] then begin inc(m);b[m]:=b[i]; end;
   for i:=1 to n do a[i]:=find(a[i]);
   fillchar(c,sizeof(c),0);i:=0;
   for j:=1 to n do
      begin
         inc(c[a[j]]);
         if c[a[j]]=1 then inc(i);
         if i=m then break;
      end;
   ans:=j;
   for i:=2 to n do
      begin
         dec(c[a[i-1]]);
         while (j<n) and (c[a[i-1]]=0) do begin inc(j);inc(c[a[j]]); end;
         if c[a[i-1]]=0 then break;
         ans:=min(ans,j-i+1);
      end;
   write(ans);
   close(input);close(output);
end.