Problem : 射击

Problem : 射击

Description
不难发现,豆豆能从很多事情中去思考数学,于是豆豆父母决定让他去练习射击,这是项需要集中注意力的运动,相信
能够让豆豆暂时脱离数学。学习射击的第一天就让豆豆产生 了浓厚的兴趣,射击的靶子是大饼圆,射击枪的子弹近
似圆柱,为什么要圆的不能是其他的 形状呢,于是豆豆开始构思,设计了这样一个好玩的问题:N*M 的方形格子靶子,
每个格子有两种状态凸或者凹(如下图浅色表示凹,深色表示凸)

现在用一个十字横截面的子弹(填充黑色部分)去射击,被射中的小格子凹变凸,凸变 凹,子弹放大后的横截面如下图

这种子弹最多可以覆盖 5 个格子,如图打完后,5 个格子凹凸状态发生了变化

请问最少需要几次射击使靶子中所有小格子都呈现凹的状态。
注意:子弹中心点如果打到四个角上则只会影响 3 个格子,如下图黑色格子表示被子 弹中心点正好击中左上角后覆
盖的 3 个格子,如果打到除四个角的边界上,则会影响到 4 个格子,如下图右侧的 4 个黑色格子所示,这是子弹中
心点打中第 3 行第 6 列时的覆盖情 况。(也就是说子弹超出靶子部分不起效)

Input
第一行两个用空格隔开的数字 N 和 M(1<=N,M<=17)
接下来 N 行 述靶子中小格子的状态,‘X’表示凸,‘.’表示凹。

Output
输出所需要的最少射击次数
注意:输入数据保证有解

Sample Input
【样例输入 1】
5 5
XX.XX
X.X.X
.XXX.
X.X.X
XX.XX

【样例输入 2】
8 9
..XXXXX..
.X…..X.
X..X.X..X
X…….X
X.X…X.X
X..XXX..X
.X…..X.
..XXXXX..
Sample Output
【样例输出 1】
5

【样例输出 2】
25

var
  map,b:array[0..18,0..18] of longint;
  st:array[0..18] of string;
  a:array[1..18] of longint;
  n,m,i,j,ans,sum:longint;
procedure chenge(x,y:longint);
begin
  b[x,y]:=b[x,y] xor 1;
  b[x-1,y]:=b[x-1,y] xor 1;
  b[x+1,y]:=b[x+1,y] xor 1;
  b[x,y-1]:=b[x,y-1] xor 1;
  b[x,y+1]:=b[x,y+1] xor 1;
  inc(sum);
end;
procedure s(x:longint);
var
  i,j:longint;
  f:boolean;
begin
  if x>m then
  begin
    sum:=0;
    for i:=1 to n do
    for j:=1 to m do b[i,j]:=map[i,j];
    for i:=1 to m do if a[i]=1 then chenge(1,i);
    for i:=2 to n do
    for j:=1 to m do if b[i-1,j]=1 then chenge(i,j);
    f:=true;
    for i:=1 to m do
    if b[n,i]=1 then f:=false;
    if f and (sum<ans) then ans:=sum;
    exit;
  end;
  a[x]:=0;
  s(x+1);
  a[x]:=1;
  s(x+1);
end;
begin
  readln(n,m);
  for i:=1 to n do readln(st[i]);
  for i:=1 to n do
  for j:=1 to m do
  if st[i,j]='X' then map[i,j]:=1
  else map[i,j]:=0;
  ans:=n*m;
  s(1);
  write(ans);
end.