讨论 / 为什么40分???求大牛解决!!
kliner 2009-11-12 01:07:00
点我顶贴 收藏 删除
var f:array[-1..1] of int64;

x,a,b,n,m,t:int64;i,j:longint;

s:ansistring;

begin

readln(x,a,b,n,m);

f[-1]:=0;f[0]:=0;f[1]:=0;

for i:=1 to m do

begin

readln(s);

t:=0;

for j:=1 to length(s) do

t:=t xor ord(s[j]);

inc(f[-1],t);

end;

f[-1]:=f[-1] mod 19920229;

for i:=m+1 to x do

begin

readln(s);

t:=0;

for j:=1 to length(s) do

t:=t xor ord(s[j]);

inc(f[0],t);

end;

f[0]:=f[0] mod 19920229;

for i:=1 to n do

begin

f[1]:=a*f[-1]+b*f[0];

f[-1]:=f[0];

f[0]:=f[1];

end;

f[1]:=f[1] mod 19920229;

writeln(f[1]);

end.

查看更多回复
提交回复