UC知道pascal诸侯安置 答案
来源：百度知道 编辑：UC知道 时间：2024/06/05 06:07:31
描述 Description
很久以前，有一个强大的帝国，它的国土成正方形状，如图2—2所示。
这个国家有若干诸侯。由于这些诸侯都曾立下赫赫战功，国王准备给他们每人一块封地(正方形中的一格)。但是，这些诸侯又非常好战，当两个诸侯位于同一行或同一列时，他们就会开战。如下图2—3为n＝3时的国土，阴影部分表示诸侯所处的位置。前两幅图中的诸侯可以互相攻击，第三幅则不可以。
国王自然不愿意看到他的诸侯们互相开战，致使国家动荡不安。 因此，他希望通过合理的安排诸侯所处的位置，使他们两两之间都不能攻击。
现在，给出正方形的边长n，以及需要封地的诸侯数量k，要求你求出所有可能的安置方案数。(n≤l00，k≤2n2-2n+1)
由于方案数可能很多，你只需要输出方案数除以504的余数即可。
输入格式 Input Format
仅一行，两个整数n和k，中间用一空格隔开。
输出格式 Output Format
一个整数，表示方案数除以504的余数。
样例输入 Sample Input
2 2
样例输出 Sample Output
4
这个其实就是把八皇后问题换了个问法而已……
var
n,aim,m:cardinal;
a:array[1..13]of longint;
procedure test(rw,ld,rd,i:cardinal);
var
p,pos,l,k:cardinal;
begin
if rw<>aim then
begin
pos:=aim and not (rw or ld or rd);
while pos<>0 do
begin
p:=pos and -pos;
pos:=pos-p;
if m<3 then
begin
l:=1;
k:=p;
while k<>1 do
begin
inc(l);
k:=k shr 1;
end;
a[i]:=l;
end;
test(rw or p,(ld or p)shl 1,(rd or p)shr 1,i+1);
end;
end
els