bzoj1264: [AHOI2006]基因匹配Match

传送门
显然一个数最多对5个位置产生影响。
直接匹配，并且用树状数组求出前缀最大值就可以实现了

uses math;var  a,b:array [0..100005] of longint;  f:array [0..100005,0..5] of longint;  n,i,x,j:longint;function low(x:longint):longint;  begin exit(x and (x xor (x-1))); end;function get(x:longint):longint;  var s:longint;  begin    s:=0;    while (x<>0) do begin s:=max(s,b[x]); x:=x-low(x); end;    exit(s);  end;procedure ins(x,y:longint);  begin while (x<=n*5) do begin b[x]:=max(b[x],y); x:=x+low(x); end; end;begin  read(n);  for i:=1 to n*5 do read(a[i]);  for i:=1 to n*5 do begin read(x); inc(f[x,0]); f[x,f[x,0]]:=i; end;  for i:=1 to n*5 do    for j:=5 downto 1 do      ins(f[a[i],j],get(f[a[i],j]-1)+1);  write(get(n*5));end.