jzoj 2546. 【NOIP2011模拟9.3】遥控车

发布于 2019-03-26  8 次阅读


题目描述

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

输入

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

输出

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

思路

前一个问题很简单,就是字符串的简单运用,后一问是n-1的高精度斐波那契数列,
所以这题就很简单了,但要注意时间如果直接进行字符操作的话会超时,所以我们可以根据字符串的长度进行一次排序,如果想要的名字长度比车的名字长度要大的话就可以直接结束了

var
 a,b:Array [0..100001,1..10] of longint;
 f:array [0..100020] of longint;
 num:array [1..10] of longint;
 n,i,j,time,x:longint;

procedure qsort(l,r,x:longint);
 vari,j,mid,temp:longint;
begin
 ifl>=r then exit;
 mid:=a[l+random(r-l+1),x];
 i:=l; j:=r;
 repeat
 while a[i,x]>mid do inc(i);
 while a[j,x]j;
 qsort(l,j,x);
 qsort(i,r,x);
end;

begin
 readln(n,time);
 fori:=1 to n do
 begin
  read(x);
  inc(num[x]);
  read(a[num[x],x]);
 end;
 fori:=1 to 10 do
 qsort(1,num[i],i);
 fori:=0 to time do
 begin
  for j:=1 to 10 do
   begin if b[i,j]
]]>