JZOJ8.12（C组）遥控车

题目：

平平带着韵韵来到了游乐园，看到了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 是唯一确定的。一辆车可以玩多次。

分析：

第二问我们可以在纸上演算后，得出是斐波那契数列，但是由于数据大，所以要用高精加。而第一问暴力寻找会超时，所以选用更优的二分查找算法。

附上代码：

const
  maxn=10000;

var
  n,m,ans,len:longint;
  s:array [0..maxn] of string;
  s1:string;
  a,b,c:array [0..maxn] of longint;

procedure gjj;
var
  i,bj:longint;
begin
  bj:=0;
  fillchar(c,sizeof(c),0);
  for i:=1 to len+1 do
    begin
      c[i]:=c[i]+a[i]+b[i]+bj;
      bj:=c[i] div 10;
      c[i]:=c[i] mod 10;
    end;
  if c[len+1]>0 then
    inc(len);
  for i:=1 to len do
    a[i]:=b[i];
  for i:=1 to len do
    b[i]:=c[i];
end;

procedure qsort(l,r:longint);
var
  i,j:longint;
  mid,k:string;
begin
  i:=l;
  j:=r;
  mid:=s[(l+r) shr 1];
  repeat
    while s[i]<mid do
      inc(i);
    while s[j]>mid do
      dec(j);
    if i<=j then
      begin
        k:=s[i];
        s[i]:=s[j];
        s[j]:=k;
        inc(i);
        dec(j);
      end;
  until i>j;
  if l<j then
    qsort(l,j);
  if i<r then
    qsort(i,r);
end;


procedure init;
var
  i:longint;
begin
  readln(n,m);
  a[1]:=1;
  b[1]:=2;
  len:=1;
  for i:=1 to n do
    readln(s[i]);
  for i:=3 to n do
    gjj;
end;

function find(s2:string):boolean;
var
  l,r,mid:longint;
begin
  find:=false;
  l:=1;r:=n;mid:=(l+r) shr 1;
  while l<=r do
    begin
      mid:=(l+r) shr 1;
      if pos(s2,s[mid])=1 then
        exit(true);
      if s2<s[mid] then
        r:=mid-1
      else
        l:=mid+1;
    end;
end;

procedure main;
var
  i,j:longint;
begin
  qsort(1,n);
  for i:=1 to m do
    begin
      readln(s1);
      if find(s1) then
        inc(ans);
    end;
  writeln(ans);
  for i:=len downto 1 do
    write(c[i]);
end;

begin
  //assign(input,'find.in');reset(input);
  //assign(output,'find.out');rewrite(output);
  init;
  main;
  //close(input);close(output);
end.