1819: [JSOI]Word Query电子字典

1819: [JSOI]Word Query电子字典

Time Limit: 10 Sec  Memory Limit: 64 MB
Submit: 729  Solved: 238
[Submit][Status]

Description

人们在英文字典中查找某个单词的时候可能不知道该单词的完整拼法，而只知道该单词的一个错误的近似拼法，这时人们可能陷入困境，为了查找一个单词而浪费大量的时间。带有模糊查询功能的电子字典能够从一定程度上解决这一问题：用户只要输入一个字符串，电子字典就返回与该单词编辑距离最小的几个单词供用户选择。 字符串a与字符串b的编辑距离是指：允许对a或b串进行下列“编辑”操作，将a变为b或b变为a，最少“编辑”次数即为距离。  删除串中某个位置的字母；  添加一个字母到串中某个位置；  替换串中某一位置的一个字母为另一个字母； JSOI团队正在开发一款电子字典，你需要帮助团队实现一个用于模糊查询功能的计数部件：对于一个待查询字符串，如果它是单词，则返回-1；如果它不是单词，则返回字典中有多少个单词与它的编辑距离为1。

Input

第一行包含两个正整数N (N < = 10,000)和M (M < = 10,000)。 接下来的N行，每行一个字符串，第i + 1行为单词Wi。单词长度在1至20之间。再接下来M行，每行一个字符串，第i + N + 1表示一个待查字符串Qi。待查字符串长度在1至20之间。Wi和Qi均由小写字母构成，文件中不包含多余空格。所有单词互不相同，但是查询字符串可能有重复。 提示：有50%的数据范围：N < = 1,000，M < = 1,000。

Output

输出应包括M行，第i行为一个整数Xi。Xi = -1表示Qi为字典中的单词；否则Xi表示与Qi编辑距离为1的单词的个数。

Sample Input

4 3
abcd
abcde
aabc
abced
abcd
abc
abcdd

Sample Output

-1
2
3

HINT

abcd在单词表中出现过；abc与单词abcd、aabc的编辑距离都是1；abcdd与单词abcd、abcde、abced的编辑距离都是1。

Source

JSOI第二轮Contest1

题解：这道题目里面的编辑距离为1，也就是三种最基本的情况，而且对于字典树而言都不难操作，所以直接乱搞搞就是啦（只要你会字典树）

 /**************************************************************
     Problem:
     User: HansBug
     Language: Pascal
     Result: Accepted
     Time: ms
     Memory: kb
 ****************************************************************/

 type
     point=^node;
     node=record
                ex:longint;
                next:array['A'..'Z'] of point;
                chi,bro:point;
                ct:char;
     end;
 var
    i,j,k,l,m,n,TP:longint;
    head,p,p1:point;
    s1:ansistring;
 function getpoint:point;inline;
          var p:point;c1:char;
          begin
               new(p);
               p^.ex:=;p^.chi:=nil;
               p^.bro:=nil;
               for c1:='A' to 'Z' do p^.next[c1]:=nil;
               exit(p);
          end;
 procedure add(p:point;c1:char);inline;
           begin
                if p^.next[c1]<>nil then exit;
                p^.next[c1]:=getpoint;
                p^.next[c1]^.ct:=c1;
                p^.next[c1]^.bro:=p^.chi;
                p^.chi:=p^.next[c1];
           end;
 procedure add(s1:ansistring);
           var
              p:point;i:longint;
           begin
                p:=head;
                for i:= to length(s1) do
                    begin
                         add(p,s1[i]);
                         p:=p^.next[s1[i]];
                    end;
                p^.ex:=;
           end;
 function exist(head:point;s1:ansistring;x:longint):boolean;inline;
          var p:point;i:longint;
          begin
               p:=head;
               for i:= to length(s1) do
                   begin
                        if p^.next[s1[i]]=nil then exit(false);
                        p:=p^.next[s1[i]];
                   end;
               if x= then exit(not(p^.ex=));
               if (p^.ex>) and (p^.ex<>tp) then
                  begin
                       p^.ex:=tp;
                       exit(true)
                  end
               else exit(false);
          end;
 function more(s1:ansistring):longint;
          var
             p:point;i,j,k,l:longint;
          begin
               inc(tp);
               p:=head;l:=;
               for i:= to length(s1) do
                   begin
                        if exist(p,copy(s1,i+,length(s1)-i),) then inc(l);
                        if p^.next[s1[i]]=nil then exit(l);
                        p:=p^.next[s1[i]];
                   end;
               exit(l);
          end;
 function just(s1:ansistring):longint;
          var p,P1:point;i,j,k,l:longint;
          begin
               inc(tp);
               p:=head;l:=;
               for i:= to length(s1)- do
                   begin
                        p1:=p^.chi;
                        while p1<>nil do
                              begin
                                   if exist(p1,copy(s1,i+,length(s1)-i),) then inc(l);
                                   p1:=p1^.bro;
                              end;
                        if p^.next[s1[i]]=nil then exit(l);
                        p:=p^.next[s1[i]];
                   end;
               if p^.chi=nil then exit(l);
               p1:=p^.chi;
               while p1<>nil do
                     begin
                          if (p1^.ex>) and (p1^.ex<>tp) then inc(l);
                          p1:=p1^.bro;
                     end;
               exit(l);
          end;
 function less(s1:ansistring):longint;
          var p,p1:point;i,j,k,l:longint;
          begin
               inc(tp);
               p:=head;l:=;
               for i:= to length(s1) do
                   begin
                        p1:=p^.chi;
                        while p1<>nil do
                              begin
                                   if exist(p1,copy(s1,i,length(s1)-i+),) then inc(l);
                                   p1:=p1^.bro;
                              end;
                        if p^.next[s1[i]]=nil then exit(l);
                        p:=p^.next[s1[i]];
                   end;
               p1:=p^.chi;
               while p1<>nil do
                     begin
                          if (p1^.ex>) and (p1^.ex<>tp) then inc(l);
                          p1:=p1^.bro;
                     end;
               exit(l);
          end;
 begin

      readln(n,m);
      head:=getpoint;
      for i:= to n do
          begin
               readln(s1);
               add(upcase(s1));
          end;
      tp:=;
      for i:= to m do
          begin
               readln(s1);
               s1:=upcase(s1);
               if exist(head,s1,) then
                  begin
                       writeln(-);
                       continue;
                  end;
               writeln(more(s1)+just(s1)+less(s1));
          end;

 end.