多米诺骨牌

多米诺骨牌

Time Limit:10000MS  Memory Limit:65536K
Total Submit:240 Accepted:80 
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

１

var

 n,i,j,max,maxn:longint;
 u,d,w:array[1..1000]of longint;
 f:array[0..1000,-6001..6001]of longint;//f[i,j]是前i张牌价值为j的最小次数
function min(a,b:longint):longint;
 begin
  if a<b then exit(a);
  exit(b);
 end;
begin
 maxn:=5000;//初始化
 max:=100000000;//同上
 read(n);
 for i:=1 to n do
 begin
  read(u[i],d[i]);
  w[i]:=u[i]-d[i];
 end;
 for i:=1 to n do
  for j:=-maxn to maxn do
   f[i,j]:=max;//放大输方便比较
 f[1,w[1]]:=0;
 f[1,-w[1]]:=1;
 for i:=2 to n do
  for j:=maxn downto -maxn do
   f[i,j]:=min(f[i-1,j-w[i]]{不翻},f[i-1,j+w[i]]+1{翻，次数加1});
 for i:=0 to maxn do
  if (f[n,i]>max)or(f[n,-i]<max) then
  begin
   write(min(f[n,-i],f[n,i]));//输出绝对值最小
   halt;
  end;
end.