bzoj2754

看到这道题一开始想到的是后缀数组+二分+rmq

类似bzoj3172

问每个串i在合并后的串出现了多少次

等价于有多少个后缀j，使得LCP(i,j)>=length(s[i])

但是想想又不对，要求求的是有多少人被点到，每个人点到多少次

可能有多个后缀j满足条件但其实都是一个人的名字的一部分

好像二分搞不动，只能顺着名次依次找，理论上极其极端的数据是可以卡掉

但是实际却过了，，内疚啊……

UPD：太神了，这题有非暴力的做法，orz http://oi.nks.edu.cn/showmessage?message_id=4091

const inf=10010;
var s,sum,be,h,x,y,rank,sa:array[0..400010] of longint;
    q,len,w:array[0..50010] of longint;
    v:array[0..50010] of boolean;
    tot,c,p,m,n,t,l,i,j:longint;

function min(a,b:longint):longint;
  begin
    if a>b then exit(b) else exit(a);
  end;

procedure suffix(n:longint);
  var m:longint;
  begin
    for i:=1 to t do
      inc(sum[s[i]]);
    m:=inf;
    for i:=1 to m do
      inc(sum[i],sum[i-1]);
    for i:=n downto  1 do
    begin
      sa[sum[s[i]]]:=i;
      dec(sum[s[i]]);
    end;
    p:=1;
    rank[sa[1]]:=1;
    for i:=2 to n do
    begin
      if (s[sa[i]]<>s[sa[i-1]]) then inc(p);
      rank[sa[i]]:=p;
    end;
    m:=p;
    j:=1;
    while m<n do
    begin
      fillchar(sum,sizeof(sum),0);
      y:=rank;
      p:=0;
      for i:=n-j+1 to n do
      begin
        inc(p);
        x[p]:=i;
      end;
      for i:=1 to n do
        if sa[i]>j then
        begin
          inc(p);
          x[p]:=sa[i]-j;
        end;

      for i:=1 to n do
      begin
        rank[i]:=y[x[i]];
        inc(sum[rank[i]]);
      end;
      for i:=1 to m do
        inc(sum[i],sum[i-1]);
      for i:=n downto 1 do
      begin
        sa[sum[rank[i]]]:=x[i];
        dec(sum[rank[i]]);
      end;
      p:=1;
      rank[sa[1]]:=1;
      for i:=2 to n do
      begin
        if (y[sa[i]]<>y[sa[i-1]]) or (y[sa[i]+j]<>y[sa[i-1]+j]) then inc(p);
        rank[sa[i]]:=p;
      end;
      m:=p;
      j:=j shl 1;
    end;
    h[1]:=0;
    p:=0;
    for i:=1 to n do
    begin
      if rank[i]=1 then continue;
      j:=sa[rank[i]-1];
      while s[i+p]=s[j+p] do inc(p);
      h[rank[i]]:=p;
      if p>0 then dec(p);
    end;
  end;

begin
  readln(n,m);
  for i:=1 to n do
  begin
    read(l);
    for j:=1 to l do
    begin
      inc(t);
      read(s[t]);
      be[t]:=i;
    end;
    inc(t);
    s[t]:=inf;  //注意姓和名之间也要加分隔符，防止点名串一部分在姓，一部分在名的情况
    read(l);
    for j:=1 to l do
    begin
      inc(t);
      read(s[t]);
      be[t]:=i;
    end;
    inc(t);
    s[t]:=inf;
  end;
  for i:=1 to m do
  begin
    read(len[i]);
    w[i]:=t+1;
    for j:=1 to len[i] do
    begin
      inc(t);
      read(s[t]);
      be[t]:=i+n;
    end;
    inc(t);
    s[t]:=inf;
  end;
  suffix(t);
  fillchar(sum,sizeof(sum),0);
  tot:=0;
  for i:=1 to m do
  begin
    for j:=1 to tot do  //小小优化
      v[q[j]]:=false;
    tot:=0;
    j:=rank[w[i]];
    l:=2147483647;
    while j<=t do      //找名次比点名串大的后缀
    begin
      inc(j);
      c:=sa[j];
      l:=min(h[j],l);    //height数组和LCP的关系
      if l<len[i] then break
      else begin
        if (be[c]>=1) and (be[c]<=n) and not v[be[c]] then
        begin
          v[be[c]]:=true;  //不能重复统计
          inc(tot);
          q[tot]:=be[c];
          inc(sum[be[c]]);
        end;
      end;
    end;
    j:=rank[w[i]];
    l:=h[j];
    while j>0 do     //找名次比点名串小的后缀
    begin
      dec(j);
      c:=sa[j];
      if l<len[i] then break
      else begin
        if (be[c]>=1) and (be[c]<=n) and not v[be[c]] then
        begin
          v[be[c]]:=true;
          inc(tot);
          q[tot]:=be[c];
          inc(sum[be[c]]);
        end;
      end;
      l:=min(l,h[j]);
    end;
    writeln(tot);
  end;
  for i:=1 to n do
  begin
    write(sum[i]);
    if i<>n then write(' ');
  end;
  writeln;
end.