9494 好简单的一个题目

就按 泗洪中学chen牛神 讲的做

BFS过的

czyz的WZX用随机的

不知有没有牛来讲讲随机

哪位大大给个解啊，555555555555~~~~~~~~~~~~~~~~~~

hexe + exet :结果二者都可为，但为了找出最优解当然是hexexet!!

注意每个单词可以用两次-。-

第二个数据为

2

ABABABAB

ABABABC

A

正解应为19~~

• -!....
  哎`\又一个不认真看题目的......
  说了最后一个字母是开头`\`

program P1311;

var

len,sum,n,num,max,k:longint;

a:array[1..20] of string;

st:string;

ch:char;

used:array[0..2000] of longint;

ans:array[0..1000000]of longint;

procedure jielong(x:string;long:longint);

var l,i,j:longint;

f:boolean;

begin

l:=length(x); f:=false;

for i:=1 to n do

begin

if used[i]

如果符合条件的单个单词长度长于组合长度时，输出单个单词的长度

的确要考虑……

附代码（个人感觉比较易读）

program vijos1311;

var i,j,k,l,m,n,max,now:longint;ch:char;

s:array[1..20]of string;len,used:array[1..20]of longint;

procedure search(k,l:longint);

var i,j:longint;st:string;

begin

st:=copy(s[k],length(s[k])-l+1,l);{搜索目标}

for i:=1 to n do

if (copy(s[i],1,l)=st)and(used[i]max then max:=now;

inc(used[i]);

for j:=1 to len[i]-1 do search(i,j);

dec(used[i]);

dec(now,len[i]-l);

end;

end;

begin

readln(n);

for i:=1 to n do

begin

readln(s[i]);

len[i]:=length(s[i]);

if len[i]>max then max:=len[i];{83分和100的差别}

end;

readln(ch);

for i:=1 to n do

if s=ch then

for j:=1 to len[i]-1 do

begin

now:=len[i];

inc(used[i]);

search(i,j);{第i个串,倒j个字符}

dec(used[i]);

end;

writeln(max);

end.

我的第90题！

庆祝一下！