第2届鸭脖活动：1M的文章里查21万个关键字

bugxiong

在1M的文章里查21万个关键字，不管用什么语言，比试谁的速度最快。
样本在附件中（包括：词库213663词条.rar 和 江湖缘.rar ）
开始时间：从即时起
结束时间：另行通过（本贴首页）
评判标准：输出就是有1M里有21W关键字文本文件。重叠。用时多少。
评判方式：统一发给楼主（1321002@qq.com或群里找猫工）测试，需要有程序+源码，不提供源码不计最后名次。
按1M文件序输出找到的关键词（21W）到文件
目标生成文件，一词一行
允许重叠


具体其它规则：大家可跟贴询问，楼主也会及时更新

前3名奖励：第1届鸭脖比赛所有源码，本届比试所有源码，再加...没想好

欢迎大家踊跃参加，学习第一，比赛第二。
欢迎大家多提宝贵意见


华为网盘附件：
【华为网盘】 词库213663词条.rar
(1.46M)华为网盘附件：
【华为网盘】 江湖缘.rar
(694.00K)

本地下载：

kingson

抢沙发了~~关键字搜出第一个还是全部？

cuibq

我认为只要有这关键字，把这关键字输出一次就行。然后在处理下一关键字。

cuibq

另外，两个文本文件的加载也要算入总时间吗？

damcool

1. 
   
2. program StringMatching;
   
3. 
   
4. {$mode objfpc}{$H+}
   
5. 
   
6. uses
   
7.   {$IFDEF UNIX}{$IFDEF UseCThreads}
   
8.   cthreads,
   
9.   {$ENDIF}{$ENDIF}
   
10.   Classes,Sysutils
    
11. 
    
12.   { you can add units after this };
    
13. var
    
14.     Dictionary,Data    :TStringList;
    
15.     Results            :TStringList;
    
16.     i,j,m,n            :integer;
    
17. begin
    
18.     Dictionary:=TStringList.Create;
    
19.     Dictionary.LoadFromFile('utf8_keywords.txt');
    
20.     Data:=TStringList.Create;
    
21.     Data.LoadFromFile('utf8_data.txt');
    
22.     Results:= TStringList.Create;
    
23.     writeln('Start Time:'+TimeToStr(Now));
    
24.     m:=Data.Count div 10;
    
25.     n:=Data.Count div 100;
    
26.     for i:=0 to Data.Count-1 do
    
27.     begin
    
28.           j:=0;
    
29.         if (i mod m =0) then
    
30.         write('>')
    
31.         else if (i mod n =0) then write('.');
    
32.           while j<Dictionary.Count do
    
33.         begin
    
34.             if pos(Dictionary.Strings[j],Data.Strings[i])>0 then
    
35.             begin
    
36.                 Results.Add(Dictionary.Strings[j]);
    
37.                 Dictionary.Delete(j);
    
38.             end
    
39.             else inc(j);
    
40.         end;
    
41.     end;
    
42.     writeln;
    
43.     writeln('Completed Time:'+TimeToStr(Now));
    
44.     Results.SaveToFile('utf8_results.txt');
    
45.     Results.Free;
    
46.     Data.Free;
    
47.     Dictionary.Free;
    
48. end.
    

复制代码

damcool

更快的在路上了...