1590: [Usaco2008 Dec]Secret Message 秘密信息

Time Limit: 5 Sec Memory Limit: 32 MB

Submit: 209 Solved: 143

Description

贝茜正在领导奶牛们逃跑．为了联络，奶牛们互相发送秘密信息．

信息是二进制的，共有M(1≤M≤50000)条．反间谍能力很强的约翰已经部分拦截了这些信息，知道了第i条二进制信息的前bi(l《bi≤10000)位．他同时知道，奶牛使用N(1≤N≤50000)条密码．但是，他仅仅了解第J条密码的前cj(1≤cj≤10000)位．

对于每条密码J，他想知道有多少截得的信息能够和它匹配．也就是说，有多少信息和这条密码有着相同的前缀．当然，这个前缀长度必须等于密码和那条信息长度的较小者．

在输入文件中，位的总数（即∑Bi+∑Ci）不会超过500000.

Input

第1行输入N和M，之后N行描述秘密信息，之后M行描述密码．每行先输入一个整数表示信息或密码的长度，之后输入这个信息或密码．所有数字之间都用空格隔开．

Output

共M行，输出每条密码的匹配信息数．

Sample Input

4 5 3 0 1 0 1 1 3 1 0 0 3 1 1 0 1 0 1 1 2 0 1 5 0 1 0 0 1 2 1 1 INPUT DETAILS: Four messages; five codewords. The intercepted messages start with 010, 1, 100, and 110. The possible codewords start with 0, 1, 01, 01001, and 11.

Sample Output

1 3 1 1 2

HINT

0 matches only 010: 1 match 1 matches 1, 100, and 110: 3 matches 01 matches only 010: 1 match 01001 matches 010: 1 match 11 matches 1 and 110: 2 matches

Source

Gold

题解：一道比较有趣的字典树（Trie树）题目，可以很好地进行前缀的比对，如果要是只是在前N个序列中找后M个的前缀个数的话那就是一道模板题。。。只是在这里显然还需要考虑在后M个里面找前N个的前缀，那么其实也就只需要在字典树里面多存储一种值即可，也就是子树的信息，具体有点讲不清，看程序吧，写的还算清晰。。。

（注意考虑匹配了一半的情况，那样子算是失败哦，为此我WA了一次）

 1 type
 2     point=^node;
 3     node=record
 4                tt,ex:longint;
 5                next:array[0..1] of point;
 6     end;
 7 var
 8    i,j,k,l,m,n:longint;
 9    head:point;
10    s1:ansistring;
11 function newp:point;
12          var p:point;
13          begin
14               new(p);p^.tt:=0;p^.ex:=0;
15               p^.next[0]:=nil;p^.next[1]:=nil;
16               exit(p);
17          end;
18 procedure insert(s1:ansistring);
19           var i:longint;p:point;
20           begin
21                p:=head;
22                for i:=1 to length(s1) do
23                    begin
24                         if p^.next[ord(s1[i])-48]=nil then
25                            p^.next[ord(s1[i])-48]:=newp;
26                         p:=p^.next[ord(s1[i])-48];
27                         inc(p^.tt);
28                    end;
29                inc(p^.ex);
30           end;
31 function num(s1:ansistring):longint;
32          var i,j,k,l:longint;p:point;
33          begin
34               p:=head;j:=0;k:=0;l:=0;
35               for i:=1 to length(s1) do
36                   begin
37                        if p^.next[ord(s1[i])-48]=nil then break;
38                        p:=p^.next[ord(s1[i])-48];
39                        k:=k+j;
40                        j:=p^.ex;
41                        l:=i;
42                   end;
43               if l<>i then num:=k+j else num:=k+p^.tt;
44          end;
45 begin
46      readln(n,m);
47      head:=newp;
48      for i:=1 to n do
49          begin
50               read(l);s1:='';
51               for j:=1 to l do
52                   begin
53                        read(k);
54                        s1:=s1+chr(48+k);
55                   end;
56               readln;
57               insert(s1);
58          end;
59      for i:=1 to m do
60          begin
61               read(l);s1:='';
62               for j:=1 to l do
63                   begin
64                        read(k);
65                        s1:=s1+chr(48+k);
66                   end;
67               readln;
68               writeln(num(s1));
69          end;
70      readln;
71 end.