3173: [Tjoi2013]最长上升子序列

先求出最终的序列，然后树状数组求出每一个询问的答案。

1.求最终序列可以用sbt。插入到位置x时如果比左子树的size大就插入到右子树中，否则就插入到左子树中。

  if x<=size[l[t]] then
    insert(x,l[t])
  else insert(x-size[l[t]]-1,r[t]);

2.求每一个询问的答案。

  f[i]为当前到这个数的最长上升子序列。查询这个数的最终位置之前的最大的f[j]为max，f[i]=max+1;

  ans[i]=max(f[i],ans[i-1]);

for i:=1 to n do
  begin
  f[i]:=1+search(se[i]);
  change(se[i],f[i]);
  ans[i]:=max(ans[i-1],f[i]);
  end;        

这个题sbt写maintain比bst慢。。。。。

RunID	User	Problem	Result	Memory	Time	Language	Code_Length	Submit_Time
412076	lbz007	3173	Accepted	4132 kb	1080 ms	Pascal/Edit	1452 B	2013-05-14 15:27:29

var
  ans,se,f,b,c,x,l,r,size,a:array[1..100000]of longint;
  k,nn,root,n,i,j:longint;
function max(aa,bb:longint):longint;
  begin
  if aa>bb then exit(aa) else exit(bb);
  end;
function new(x:longint):longint;
  begin
  inc(nn);a[nn]:=x;size[nn]:=1;exit(nn);
  end;
procedure insert(x:longint; var t:longint);
  begin
  if t=0 then
    begin
    t:=new(x);
    exit;
    end;
  if x<=size[l[t]] then
    insert(x,l[t])
  else insert(x-size[l[t]]-1,r[t]);
  inc(size[t]);
  end;
procedure print(t:longint);
  begin
  if t=0 then exit;
  print(l[t]);
  inc(k);b[k]:=t;
  print(r[t]);
  end;
function lowbit(x:longint):longint;
  begin exit(x and (-x));
  end;
procedure change(x,a:longint);
  begin
  while x<=n do
    begin
    c[x]:=max(c[x],a);
    inc(x,lowbit(x));
    end;
  end;
function search(x:longint):longint;
  begin
  search:=0;
  while x>0 do
    begin
    search:=max(search,c[x]);
    dec(x,lowbit(x));
    end;
  end;
begin
  readln(n);
  for i:=1 to n do
    begin
    read(x[i]);
    insert(x[i],root);
    end;
  k:=0;print(root);
  for i:=1 to n do
    se[b[i]]:=i;
  for i:=1 to n do
    begin
    f[i]:=1+search(se[i]);
    change(se[i],f[i]);
    ans[i]:=max(ans[i-1],f[i]);
    end;
  for i:=1 to n do writeln(ans[i]);
  end.