bzoj1878 树状数组 要一点思考

一开始快排敲错两次

program hehe;
var
 t,n,m,i,j,k:longint;
 c:array[0..1000000] of longint;
 pre,next,a,x:array[0..50005] of longint;
 ans,p,z,y:array[0..200005] of longint;

  procedure sort(l,r:longint);
  var
   zuo,you,mid:longint;
  begin
   zuo:=l;
   you:=r;
   mid:=y[(l+r)>>1];
   repeat
    while y[zuo]<mid do inc(zuo);
    while y[you]>mid do dec(you);
    if zuo<=you then
    begin
     t:=z[zuo];
     z[zuo]:=z[you];
     z[you]:=t;
     t:=y[zuo];
     y[zuo]:=y[you];
     y[you]:=t;
     t:=p[zuo];
     p[zuo]:=p[you];
     p[you]:=t;
     dec(you);
     inc(zuo);
    end;
   until zuo>you;
   if l<you then sort(l,you);
   if zuo<r then sort(zuo,r);
  end;

  function lowbit(a:longint):longint;
  begin
   exit(a and(-a));
  end;

  procedure add(a,b:longint);
  begin
   while a<=n do
   begin
    x[a]:=x[a]+b;
    a:=a+lowbit(a);
   end;
  end;

  function find(a:longint):longint;
  var
   s:longint;
  begin
   s:=0;
   while a>0 do
   begin
    s:=s+x[a];
    a:=a-lowbit(a);
   end;
   exit(s);
  end;

begin
 readln(n);
 fillchar(a,sizeof(a),255);
 for i:=1 to n do
 begin
  read(a[i]);
  pre[i]:=c[a[i]];
  c[a[i]]:=i;
  next[pre[i]]:=i;
 end;
 read(m);
 for i:=1 to m do read(z[i],y[i]);
 for i:=1 to m do p[i]:=i;
 sort(1,m);
 for i:=1 to m do
 begin
  while j<y[i] do
  begin
   inc(j);
   add(pre[j]+1,1);
   add(j+1,-1)
  end;
  ans[p[i]]:=find(z[i]);
 end;
 for i:=1 to m do
 writeln(ans[i]);
end.

1878: [SDOI2009]HH的项链

Time Limit: 4 Sec  Memory Limit: 64 MB
Submit: 2154  Solved: 1062
[Submit][Status][Discuss]

Description

HH有一串由各种漂亮的贝壳组成的项链。HH相信不同的贝壳会带来好运，所以每次散步 完后，他都会随意取出一段贝壳，思考它们所表达的含义。HH不断地收集新的贝壳，因此， 他的项链变得越来越长。有一天，他突然提出了一个问题：某一段贝壳中，包含了多少种不同 的贝壳？这个问题很难回答。。。因为项链实在是太长了。于是，他只好求助睿智的你，来解 决这个问题。

Input

第一行：一个整数N，表示项链的长度。 第二行：N个整数，表示依次表示项链中贝壳的编号（编号为0到1000000之间的整数）。 第三行：一个整数M，表示HH询问的个数。 接下来M行：每行两个整数，L和R（1 ≤ L ≤ R ≤ N），表示询问的区间。

Output

M行，每行一个整数，依次表示询问对应的答案。

Sample Input

6
1 2 3 4 3 5
3
1 2
3 5
2 6

Sample Output

2
2
4

HINT

对于20%的数据，N ≤ 100，M ≤ 1000；
对于40%的数据，N ≤ 3000，M ≤ 200000；
对于100%的数据，N ≤ 50000，M ≤ 200000。

Source

Day2

[Submit][Status][Discuss]