【动态规划】【RQ429】词链

题目描述

给定一个仅包含小写字母的英文单词表，其中每个单词最多包含50个字母。

如果一张由一个词或多个词组成的表中，每个单词（除了最后一个）都是排在它后面的单词的前缀，则称此表为一个词链。例如下面的单词组成了一个词链：

i

int

integer

而下面的单词不组成词链：

integer

intern

请在给定的单词表中取出一些词，组成最长的词链。最长的词链就是包含单词数最多的词链。

数据保证给定的单词表中，单词互不相同，并且单词按字典顺序排列。

输入格式

第一行一个整数n(n<=10000)，表示单词表中单词数
下接n行每行一个单词。

输出格式

一个整数，表示最长词链长度。

样例输入

5 i int integer intern internet

样例输出

4

三维状态图像

 

---

 

题目叙述中有一句：给出的单词按字典序排列。
那么后面的单词>前面的单词，换句话说，对于I,J,K,有
I<J<K， 如果S[J]是S[K]的一个子串，那么假设S[I]也是S[K] 的一个子串，那么S[I]也一定是S[J]的一个子串，所以只需倒序查找第一个属于 S[K]的子串就够了，然后就BREAK,下面的是由你的程序改过来的，ac的，看看哪里不一样你就明白了。

——HADES

const maxn=10001; var a:array[0..maxn] of string; f:array[0..maxn] of longint; n,i,j,k,ans:longint; begin readln(n); for i:=1 to n do readln(a[i]); for i:=1 to n do f[i]:=1; for i:=2 to n do for j:=i-1 downto 1 do if (pos(a[j],a[i])=1) then if f[j]+1>f[i] then begin f[i]:=f[j]+1; break; end; for i:=1 to n do if f[i]>ans then ans:=f[i]; writeln(ans); end.