(ssl1632)P1282 多米诺骨牌

多米诺骨牌

Time Limit:10000MS  Memory Limit:65536K
Total Submit:238 Accepted:78 
Case Time Limit:1000MS

Description

 

Input

　　输入文件的第一行是一个正整数n(1≤n≤1000)，表示多米诺骨牌数。接下来的n行表示n个多米诺骨牌的点数。每行有两个用空格隔开的正整数，表示多米诺骨牌上下方块中的点数a和b，且1≤a，b≤6。

Output

　　输出文件仅一行，包含一个整数。表示求得的最小旋转次数。

Sample Input

4						
6 1
1 5
1 3
1 2

Sample Output

１

Source

elba

var
 a,b,c:array[0..1000]of longint;
 f:array[0..1000,-6000..6000]of longint;//f[i,j]表示前I张骨牌构成差值J要翻动的最小骨牌数
 n,i,j:longint;
function min(a,b:longint):longint;//状态转移方程
begin
 if a<b then exit(a);
 exit(b);
end;
begin
 read(n);
 for i:=1 to n do
  begin
   readln(a[i],b[i]);//输入上面和下面的点数
   c[i]:=a[i]-b[i];//上面与下面的差值
   for j:=-6*n to 6*n do f[i,j]:=100000;//顺便赋值(等于这个值就是不能构成j了)
  end;
 f[1,c[1]]:=0;//一开始它的差值就是c[1],所以不用翻动
 f[1,-c[1]]:=1;//这里是把上下互换，所以翻动一次
 for i:=2 to n do
  for j:=6*n downto -6*n do//6*n是因为有n张骨牌，每张骨牌的一面可能是1~6的点数
   f[i,j]:=min(f[i-1,j-c[i]],f[i-1,j+c[i]]+1);//第一种不翻动，第二种翻动(翻动后次数要+1)
 for j:=0 to 6*n do
  if (f[n,j]<100000) or (f[n,-j]<100000) then break;//选出一个能构成，且绝对值最小的j
 writeln(min(f[n,j],f[n,-j]))//可能会涉及到绝对值,所以选最小的
end.