wikioi1116 四色问题

来源：互联网发布：淘宝怎么选爆款编辑：程序博客网时间：2024/04/28 05:18

题目描述 Description

给定N（小于等于8）个点的地图，以及地图上各点的相邻关系，请输出用4种颜色将地图涂色的所有方案数（要求相邻两点不能涂成相同的颜色）

数据中0代表不相邻，1代表相邻

输入描述 Input Description

第一行一个整数n，代表地图上有n个点

接下来n行，每行n个整数，每个整数是0或者1。第i行第j列的值代表了第i个点和第j个点之间是相邻的还是不相邻，相邻就是1，不相邻就是0.

我们保证a[i][j] = a[j][i] （a[i,j] = a[j,i]）

输出描述 Output Description

染色的方案数

样例输入 Sample Input

8
0 0 0 1 0 0 1 0
0 0 0 0 0 1 0 1
0 0 0 0 0 0 1 0
1 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0
0 1 0 0 0 0 0 0
1 0 1 0 0 0 0 0
0 1 0 0 0 0 0 0

样例输出 Sample Output

15552

数据范围及提示 Data Size & Hint

n<=8

题解：还是爆搜水题只为过天梯

var  a:array[1..8,1..8]of boolean;  f:array[1..8]of longint;  n,i,j,ans:longint;procedure init;var    i,x:longint;begin  fillchar(f,sizeof(f),0);  readln(n);  for i:=1 to n do  begin    for j:=1 to n do    begin      read(x);      if x=1 then a[i,j]:=true else a[i,j]:=false;    end;    readln;  end;  ans:=0;end;  procedure dfs(dep:longint);var  i,j,flag:longint;begin  if dep>n then   begin     inc(ans);     exit;   end;  for i:=1 to 4 do  begin    flag:=0;    for j:=1 to n do      if (j<>dep)and a[dep,j] and(f[j]=i) then flag:=1;    if flag=1 then continue;    f[dep]:=i;    dfs(dep+1);  end;  f[dep]:=0;end;begin  init;  dfs(1);  write(ans);end.

0 0