遥控车_vijos1458_纪中1724_水

Description

平平带着韵韵来到了游乐园，看到了n辆漂亮的遥控车，每辆车上都有一个唯一的名字name[i]。韵韵早就迫不及待地想玩名字是s的遥控车。可是韵韵毕竟还小，她想象的名字可能是一辆车名字的前缀（也就是说能确定一个i，使s是name[i]的前缀），这时她就能玩第i辆车；或者是一个无中生有的名字，即s不是任何一辆车名字的前缀，这时候她什么也不能玩。
你需要完成下面的任务：
1.韵韵想了m个她想要的名字，请告诉她能玩多少次。
2.由于管理员粗心的操作，导致每辆车的摆放位置都可能出现微小的差错，原来第i辆车现在的位置可能是i-1、i、i+1中的任意一个（第1辆车的位置不可能是0，第n辆车的位置不可能是n+1）。请你计算出共有多少种可能的排列。
注：数据保证当s是name[i]的前缀时，i是唯一确定的。一辆车可以玩多次。

Input

第一行是2个正整数n、m。
接下来n行，每行1个字符串name[i]，表示第i辆车的名字。
接下来m行，每行1个字符串s，表示韵韵想要的名字。

Output

第一行输出韵韵能玩的次数。
第二行输出共有多少种可能的排列。

Sample Input

4 4

Abcd

DeF

AAa

aBccc

Ab

AA

AbC

aBcc

Sample Output

3

5

Hint

对于题目涉及到的字符串严格区分大小写，且长度小于255。
对于20％的数据 n≤10,m≤10；
对于40％的数据 n≤1000，m≤1000；
对于100％的数据 n≤10000，m≤10000。

题解

抱着第一题不会太难的心态看，然后就懵了 囧

第一问：

查找，判断+统计。普通的暴枚会TLE，用一个神奇的优化方法把字符串转成类似前缀和的东西比较，速度骤然上升

第二问：

先是一本正经列了一个2维dp如下

$$f[i][j]=f[i-1][j]+f[i-2][j-1]$$
表示前i辆车有j辆和右边交换位置，因为和右边换等同于和左边换所以不作考虑
然后你就会发现j是个酱油
设f[i]表示前i辆车的总方案数，则
$$f[i]=f[i-1]+f[i-2]$$
这是什么？？？！！！！
斐波那契数列
由于数据大，要打高精度
尝试过矩阵乘法，然后要打高精加和高精乘，于是我可耻地放弃了

代码/pas:

type
  num=record
    v:array[1..3000]of longint;
    len:Longint;
  end;
var
  n,m,i,j,ans:Longint;
  st:array[0..10000,0..300]of real;
  l:array[0..10000]of longint;
  a:array[0..10000]of real;
  u,v,w:num;
  s:string;
function add(x,y:num):num;
var
  i,t:longint;
begin
  fillchar(add,sizeof(add),0);
  add.len:=y.len;
  if x.len>y.len then add.len:=x.len;
  t:=0;
  for i:=1 to add.len do
  begin
    add.v[i]:=(x.v[i]+y.v[i]+t)mod 10;
    t:=(x.v[i]+y.v[i]+t)div 10;
  end;
  if t<>0 then
  begin
    inc(add.len);
    add.v[add.len]:=t;
  end;
end;
begin
  readln(n,m);
  for i:=1 to n do
  begin
    readln(s);
    for j:=1 to length(s) do
    st[i,j]:=st[i,j-1]*1.9+ord(s[j]);
  end;
  for i:=1 to m do
  begin
    readln(s);
    l[i]:=length(s);
    for j:=1 to length(s) do
    a[i]:=a[i]*1.9+ord(s[j]);
  end;
  for i:=1 to n do
  for j:=1 to m do
  if st[i,l[j]]=a[j] then
  inc(ans);
  writeln(ans);
  u.len:=1;
  u.v[1]:=1;
  v.len:=1;
  v.v[1]:=1;
  for i:=2 to n do
  begin
    w:=add(u,v);
    u:=v;
    v:=w;
  end;
  for i:=w.len downto 1 do write(w.v[i]);
  writeln;
end.