(ssl1632)P1282 多米诺骨牌

来源：互联网发布：外貌协会的女生知乎编辑：程序博客网时间：2024/05/29 07:54

多米诺骨牌

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

46 11 51 31 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.

2 0