题目:
平平带着韵韵来到了游乐园,看到了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.