洛谷 P1282 多米诺骨牌

洛谷 P1282 多米诺骨牌

---

题目

题目描述

多米诺骨牌有上下2个方块组成，每个方块中有1~6个点。现有排成行的

上方块中点数之和记为S1，下方块中点数之和记为S2，它们的差为|S1-S2|。例如在图8-1中，S1=6+1+1+1=9，S2=1+5+3+2=11，|S1-S2|=2。每个多米诺骨牌可以旋转180°，使得上下两个方块互换位置。 编程用最少的旋转次数使多米诺骨牌上下2行点数之差达到最小。

对于图中的例子，只要将最后一个多米诺骨牌旋转180°，可使上下2行点数之差为0。

输入输出格式

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

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

输入输出样例

输入样例#1：

4
6 1
1 5
1 3
1 2

输出样例#1：

1

---

题解

DP或者背包（我写的是背包）

---

代码（Pascal）

var n,tot,x,y:longint;
    a,b:array[-5005..5005]of longint;
    q:array[-10..1005]of longint;
 function min(a,b:longint):longint;
  begin
    if a>b then exit(b) else exit(a);
   end;
 procedure init;
  var i:longint;
   begin
     readln(n);
     for i:=1 to n do
      begin
        read(x,y);
        q[i]:=x-y;
        tot:=tot+q[i];
       end;
     x:=5*n;y:=-x;
     if tot=0 then begin writeln(0);halt;end;
    end;
 procedure main;
  var i,j:longint;
   begin
     for i:=1 to n do
      begin
        b:=a;
        for j:=y to x do
         if a[j]>0 then
          if b[j-2*q[i]]>0 then b[j-2*q[i]]:=min(b[j-2*q[i]],a[j]+1)
                           else b[j-2*q[i]]:=a[j]+1;
        b[-2*q[i]]:=1;
        a:=b;
       end;
     i:=-tot;j:=i;
     while true do
      begin
        if (a[i]>0)and(a[i]<=a[j]) then
         begin
           writeln(a[i]);
           halt;
          end;
        if a[j]>0 then begin writeln(a[j]);halt;end;
        dec(i);inc(j);
       end;
    end;
 begin
   init;
   main;
  end.