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.