1207. 遥控车 (Standard IO)

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是唯一确定的。一辆车可以玩多次。

题解：

  第一问：二分匹配

  第二问：斐波那契数列f(n)位

代码：

var
  i,n,m,ans,k:longint;
  s:string;
  a:array[0..20001] of string;
  x,y,z:array[1..20000] of longint;
procedure sort(i,j:longint);
var
  l,r:longint;
  m:string;
begin
  l:=i;
  r:=j;
  m:=a[(i+j) shr 1];
  repeat
    while a[i]<m do inc(i);
    while a[j]>m do dec(j);
    if i<=j then
      begin
        a[0]:=a[i];
        a[i]:=a[j];
        a[j]:=a[0];
        inc(i);
        dec(j);
      end;
  until i>j;
  if i<r then sort(i,r);
  if l<j then sort(l,j);
end;
function search(l,r:longint):boolean;
var
  temp:boolean;
  mid,t:longint;
begin
  search:=false;
  repeat
    mid:=(l+r)div 2;
    if copy(a[mid],1,length(s))=s then
      begin
        search:=true;
        t:=1;
        while copy(a[mid+t],1,length(s))=s do
          begin inc(ans);inc(t);end;
        t:=1;
        while copy(a[mid-t],1,length(s))=s do begin inc(ans);inc(t);end;
        break;
      end
    else
      begin
        if l+1=r then
          if copy(a[mid+1],1,length(s))=s then
            inc(r)
          else break;
        if a[mid]>s then r:=mid
          else l:=mid
      end;
  until l=r;
end;
procedure main;
var
  i:longint;
begin
  for i:=1 to k do
    begin
      x[i]:=x[i]+y[i];
      x[i+1]:=x[i+1]+x[i] div 10;
      x[i]:=x[i] mod 10;
    end;
  if x[k+1]<>0 then inc(k);
end;
begin
  readln(n,m);
  for i:=1 to n do
    readln(a[i]);
  sort(1,n);a[0]:='';
  for i:=1 to m do
    begin
      readln(s);
      if search(1,n) then inc(ans);
    end;
  writeln(ans);
  k:=1;
  x[1]:=1;z[1]:=1;
  for i:=1 to n-1 do
    begin
      y:=z;z:=x;
      main;
    end;
  for i:=k downto 1 do
    write(x[i]);
end.