五子棋

题目

WHU ACM的队员们迷上了五子棋游戏，他们决定组织一场队内友谊赛以便互相切磋棋艺。 比赛规则是这样的：每位选手都要和其他人进行一场比赛，每场比赛胜者将得到一定的积分，败者不得分，若和棋则双方都不得分。 每位队员都有一个经验值，我们可以认为比赛中经验值较高者获胜，若双方经验值相同则为和棋。 队员们都很聪明，他们会在比赛中不断进步。也就是说，和特定的对手进行比赛后，无论胜负，都会增加一定经验值。 小M作为WHU ACM集训队的队长有资格安排比赛顺序，而同时作为1号选手的他自然希望自己的积分能越高越好。因此，他请你根据相关信息写一个程序来帮助他。

输入有多组数据，第一行为一个整数T(1 <= T <= 11)，表示数据个数。 每组数据第一行为一个整数N（1 <= N <= 13）表示参赛选手数。 接下来有N行，每行包含N个范围为[0, 1000]的整数，第i 行的第j个数表示选手i与选手j比赛后选手i获得的经验值。 之后N行每行包含N个范围为[0, 10]的整数，第i行的第j个数表示选手i战胜选手j后得到的积分。 最后一行N个范围为[0, 1000]的整数，表示各位选手的初始经验值。

分析

我们会发现，这题很难处理。。
但是我们接着分析会发现这题其他的人最好别互相打架
这样他们的经验才会最小，而我们只需要考虑1号选手和谁打就行了，
然后这就是一道状压dp了。
然而一般的同学都会想到用两维dp。
$f[i,j]$表示经验为i，状态为j的最大积分
但是这题的经验有点大，再乘上$2^{13}$便超过了空间限制了。
其实稍加分析。
便会发现这题只要确定了状态，那么其经验一定是确定的（赢不赢都可以获得经验）
那么我们便可以设$g[j],f[j]$分别表示状态为j时的经验值和最大积分。
转移：

           for i:=0 to (1 shl 13)-1 do begin
           for k:=1 to n do
             if (i and (1 shl (k-1))=0)and(k<>1) then begin
                x:=f[i];
                if (g[i]>c[k]) then x:=x+b[1,k];
                f[i+(1 shl (k-1))]:=max(f[i+(1 shl (k-1))],x);
                g[i+(1 shl (k-1))]:=g[i]+a[1,k];
            end;

然而，我们接着会产生疑问：为什么这样循环是对的呢？会不会有一些漏算的情况呢？
比如最优的方案时先000001，再100001，再100101，会不会算不到呢？
其实这样想是多余的，因为：
我们循环的状态j，若循环到它，那么之前的状态一定是算过的.
即000001<100001<100101，所以可以更新的。

var
    t,i,n,ans,j,k,x:longint;g,f:array[0..8192] of longint;
    a,b:array[1..14,1..14] of longint;
    c:array[1..14] of longint;
function max(l,r:longint):longint;
begin
    if l<r then exit(r);exit(l);
end;
begin
    readln(t);
    for t:=1 to t do begin
        readln(n);
        for i:=1 to n do for j:=1 to n do read(a[i,j]);
        for i:=1 to n do for j:=1 to n do read(b[i,j]);
        for i:=1 to n do read(c[i]);
        fillchar(f,sizeof(f),0);
        fillchar(g,sizeof(g),0);
        f[0]:=0;
        g[0]:=c[1];
           for i:=0 to (1 shl 13)-1 do begin
           for k:=1 to n do
             if (i and (1 shl (k-1))=0)and(k<>1) then begin
                x:=f[i];
                if (g[i]>c[k]) then x:=x+b[1,k];
                f[i+(1 shl (k-1))]:=max(f[i+(1 shl (k-1))],x);
                g[i+(1 shl (k-1))]:=g[i]+a[1,k];
            end;
            ans:=max(ans,f[i]);
        end;
        writeln(ans);ans:=0;
    end;
end.