program domino;
var n,m,p,te,i,j:longint;
a:array[1..1000,1..2] of longint;
f:array[0..10000,0..32] of longint; procedure dot(k,x,y:longint);
begin
if k>m then exit;
if k=m then
begin
inc(te);
a[te,1]:=x; a[te,2]:=y;
exit;
end;
dot(k+2,x shl 2,y shl 2);
dot(k+1,x shl 1,(y shl 1)or 1);
dot(k+1,(x shl 1)or 1,y shl 1);
end; begin
assign(input,'domino.in');reset(input);
assign(output,'domino.out');rewrite(output);
readln(n,m,p);
te:=0;
dot(0,0,0);
f[0,0]:=1;
for i:=1 to n do
for j:=1 to te do
f[i,a[j,2]]:=(f[i,a[j,2]]+f[i-1,a[j,1]]) mod p;
writeln(f[n,0] mod p);
close(input);close(output);
end.

有一个m行n列的矩阵，用1*2的骨牌(可横放或竖放)完全覆盖，骨牌不能重叠，有多少种不同的覆盖的方法？
求出覆盖方法总数mod p 的值。

好复杂的样子

我我我我我考完看着这些就头疼