实现功能——输入N,M,提供一个共计N个单词的词典,然后在最后输入的M个字符串中进行多串匹配(关于AC自动机算法,此处不再赘述,详见:Aho-Corasick 多模式匹配算法、AC自动机详解。考虑到有时候字典会相当稀疏,所以引入了chi和bro指针进行优化——其原理比较类似于邻接表,这个东西和next数组本质上是一致的,只是chi和bro用于遍历某一节点下的子节点,next用于查询某节点下是否有需要的子节点)

 type
point=^node;
node=record
ex:longint;st:ansistring;
ct:char;
fat,jump,chi,bro:point;
next:array['A'..'Z'] of point;
end;
var
i,j,k,l,m,n:longint;
head,p:point;
s1,s2:ansistring;
function getpoint:point;inline;
var p:point;c1:char;
begin
new(p);
p^.ex:=;p^.st:='';
p^.ct:=chr();
p^.bro:=nil;p^.chi:=nil;
p^.fat:=nil;p^.jump:=head;
for c1:='A' to 'Z' do p^.next[c1]:=nil;
exit(p);
end;
procedure ins(s1:ansistring;x:longint);inline;
var p:point;s2:ansistring;i:longint;
begin
p:=head;S2:='';
for i:= to length(s1) do
begin
s2:=s2+s1[i];
if p^.next[s1[i]]=nil then
begin
p^.next[s1[i]]:=getpoint;
p^.next[s1[i]]^.fat:=p;
p^.next[s1[i]]^.st:=s2;
p^.next[s1[i]]^.ct:=s1[i];
p^.next[s1[i]]^.bro:=p^.chi;
p^.chi:=p^.next[s1[i]];
end;
p:=p^.next[s1[i]];
end;
if p^.ex= then p^.ex:=x;
end;
procedure linkit;inline;
var i,j,k,l,f,r:longint;
d:array[..] of point;
p,p1,p2:point;
begin
f:=;r:=;d[]:=head;
while f<r do
begin
p:=d[f]^.chi;
while p<>nil do
begin
d[r]:=p;
if d[f]<>head then
begin
p1:=d[f]^.jump;
while p1<>head do
begin
if p1^.next[p^.ct]<>nil then break;
p1:=p1^.jump;
end;
if p1^.next[p^.ct]<>nil then p^.jump:=p1^.next[p^.ct];
end;
inc(r);
p:=p^.bro;
end;
inc(f);
end;
end;
procedure fit(s1:ansistring);inline;
var p,p1:point;i:longint;
begin
p:=head;
for i:= to length(s1) do
begin
if p^.next[s1[i]]=nil then
begin
while (p^.next[s1[i]]=nil) and (p<>head) do p:=p^.jump;
if p^.next[s1[i]]<>nil then p:=p^.next[s1[i]];
end
else p:=p^.next[s1[i]];
p1:=p;
while p1<>head do
begin
if p1^.ex<> then writeln('No.',p1^.ex,' ',p1^.st,' From:',i-length(p1^.st)+);
p1:=p1^.jump;
end;
end;
end;
begin
readln(n,m);
head:=getpoint;head^.jump:=head;
for i:= to n do
begin
readln(s1);
ins(upcase(s1),i);
end;
linkit;
for i:= to m do
begin
readln(s1);
fit(upcase(s1));
end;
end.

算法模板——AC自动机的更多相关文章

  1. [算法模版]AC自动机

    [算法模版]AC自动机 基础内容 板子不再赘述,OI-WIKI有详细讲解. \(query\)函数则是遍历文本串的所有位置,在文本串的每个位置都沿着\(fail\)跳到根,将沿途所有元素答案++.意义 ...

  2. 算法竞赛模板 AC自动机

    AC自动机基本操作 (1) 在AC自动机中,我们首先将每一个模式串插入到Trie树中去,建立一棵Trie树,然后构建fail指针. (2) fail指针,是穿插在Trie树中各个结点之间的指针,顾名思 ...

  3. 【字符串算法】AC自动机

    国庆后面两天划水,甚至想接着发出咕咕咕的叫声.咳咳咳,这些都不重要!最近学习了一下AC自动机,发现其实远没有想象中的那么难. AC自动机的来历 我知道,很多人在第一次看到这个东西的时侯是非常兴奋的.( ...

  4. luoguP3808[模板]AC自动机(简单版)

    传送门 ac自动机模板题,裸的多串匹配 代码: #include<cstdio> #include<iostream> #include<algorithm> #i ...

  5. luoguP3796[模板]AC自动机(加强版)

    传送门 ac自动机模板,可能我写的ac自动机是有点问题的,所以跑的有些慢 暴力跳fail统计 代码: #include<cstdio> #include<iostream> # ...

  6. 模板 AC自动机

    题目描述 有$N$ 个由小写字母组成的模式串以及一个文本串$T$ .每个模式串可能会在文本串中出现多次.你需要找出哪些模式串在文本串$T$ 中出现的次数最多. 输入输出格式 输入格式: 输入含多组数据 ...

  7. 洛谷.3808/3796.[模板]AC自动机

    题目链接:简单版,增强版 简单版: #include <cstdio> #include <cstring> const int N=1e6+5,S=26; char s[N] ...

  8. 模板—AC自动机

    #include<iostream> #include<cstdio> #include<cstring> using namespace std; struct ...

  9. 模板——AC自动机

    传送门:QAQQAQ 定义nxt[u]=v表示从u开始不断沿着失配边跳到的第一个是标记点的端点v,那么我们再匹配时沿着last跳,每跳到一个last,它就一定对应一个模式串,所以效率是非常高的. 和K ...

随机推荐

  1. Raphael的transform用法

    Raphael的transform用法 <%@ page language="java" contentType="text/html; charset=UTF-8 ...

  2. VAST3.0规范

    VAST3.0视频广告投放规范 Posted on 2014年2月15日 1.术语 随着视频广告行业的发展,某些术语已经得到了广泛的采用.以下定义该文档中与视频广告投放相关的一些术语: 广告荚(Ad ...

  3. SSM(Maven集成)

    ssm全称:Spring+SpringMVC+Mybatis ssm简介: 1.Spring Spring是一个开源框架,Spring是于2003 年兴起的一个轻量级的Java 开发框架,由Rod J ...

  4. Bloom Filter的基本原理和变种

    学习一个东西首先要知道这个东西是什么,可以做什么,接着再了解这个东西有什么好处和优势,然后再学习他的工作原理.下面我们分别从这三点简单介绍一下bloom filter,以及和他的变种. What:在允 ...

  5. 数据结构实习-迷宫(基于Qt实现)

    预览效果: Maze.pro文件 #------------------------------------------------- # # Project created by QtCreator ...

  6. node Express安装与使用(一)

    首先放上官网地址 http://www.expressjs.com.cn/ 学会查阅官方手册,它是最好的资料. 1.Express安装 首先确定你已经安装了 Node.js,然后去你创建的项目目录下( ...

  7. 性能优化之数据存储&DOM编程

    多读书多看报 数据存储 ·在javascript中,数据存储的位置会对代码整体性能产生重大的影响. ·数据存储共有4种方式:字面量.变量.数组.对象成员.   ·要理解变量的访问速度,就要理解作用域. ...

  8. php面向对象(OOP)---- 验证码类

    PHP常用自封装类--验证码类 验证码是众多网站登陆.注册等相关功能不可以或缺的功能,实现展示验证码的方式有很多,这篇文章作者以工作中比较常用的方法进行了封装. 逻辑准备 要实现一个完整的验证码,需要 ...

  9. OVS VxLAN Flow 分析 - 每天5分钟玩转 OpenStack(149)

    OVS 的数据流向都是由 Flow 规则控制的,今天我们就来分析 VxLAN 的 Flow 规则.提个醒:这可能是本教程最烧脑的一节,let's rock it ! 下面分析控制节点上的 flow r ...

  10. 使用 position:sticky 实现粘性布局

    如果问,CSS 中 position 属性的取值有几个?大部分人的回答是,大概是下面这几个吧? { position: static; position: relative; position: ab ...