洛谷 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.