提高1342

1342. 淘汰赛制 (Standard IO)

Time Limits:  1000 ms  Memory Limits:  65536 KB  Detailed Limits  

Description

　　淘汰赛制是一种极其残酷的比赛制度。2^n名选手分别标号1，2，3，……2^n-1，2^n，他们将要参加n轮的激烈角逐。每一轮中，将所有参加该轮的选手按标号从小到大排序后，第1位与第2位比赛，第3位与第4位比赛，第5位与第6位比赛……只有每场比赛的胜者才有机会参加下一轮的比赛（不会有平局）。这样，每轮将淘汰一半的选手。n轮过后，只剩下一名选手，该选手即为最终的冠军。
　　现在已知每位选手分别与其他选手比赛获胜的概率，请你预测一下谁夺冠的概率最大。

Input

　　输入文件第一行是一个整数n（1<=n<=10），表示总轮数。接下来2^n行，每行2^n个整数，第i行第j个是pij（0<=pij<=100，pii=0，pij+pji=100），表示第i号选手与第j号选手比赛获胜的概率。

Output

　　输出文件只有一个整数c，表示夺冠概率最大的选手编号（若有多位选手，输出编号最小者）。

Sample Input

2

0 90 50 50

10 0 10 10

50 90 0 50

50 90 50 0

Sample Output

1

Data Constraint

Hint

【数据规模】
　　30%的数据满足n<=3

　　100%的数据满足n<=10

var
        a,b,c,d,i,j,k,i1,i2,j2,i3:longint;
        v:array[1..1024,1..1024]of extended;
        r:array[0..10,0..1024]of extended;
        t:array[0..1024]of longint;
        ans:extended;
        p:boolean;
procedure ss(l,u:longint);
var
        i,j:longint;
        mid:extended;
begin
        i:=l;
        j:=u;
        mid:=r[a,(i+j) div 2];
        while i<j do
        begin
                while r[a,i]<mid do inc(i);
                while r[a,j]>mid do dec(j);
                if i<=j then
                begin
                        r[a,0]:=r[a,i];
                        r[a,i]:=r[a,j];
                        r[a,j]:=r[a,0];
                        t[0]:=t[i];
                        t[i]:=t[j];
                        t[j]:=t[0];
                        inc(i);
                        dec(j);
                end;
        end;
        if j>l then ss(l,j);
        if i<u then ss(i,u);
end;
begin
        //assign(input,'1.in');reset(input);
        readln(a);
        b:=1 shl a;
        for c:=1 to b do
        begin
                for d:=1 to b do
                begin
                        read(v[c,d]);
                        if (c<>d)and(v[c,d]<>50) then
                                p:=true;
                        v[c,d]:=v[c,d]/100;
                end;
                readln;
        end;
        if p=false then
        begin
                writeln(1);
                halt;
        end;
        for i:=1 to b do
                r[0,i]:=1;
        k:=1;
        for i:=1 to a do
        begin
                for j:=1 to b do
                begin
                        i1:=(j-1) shr (i-1);
                        ans:=0;
                        if (i1 mod 2=0) then
                        begin
                                i2:=(i1+1)*k;
                                j2:=i2+k;
                        end;
                        if (i1 mod 2<>0) then
                        begin
                                i2:=((i1-1)*k);
                                j2:=i1*k;
                        end;
                        inc(i2);
                        for i3:=i2 to j2 do
                                ans:=ans+r[i-1,i3]*v[j,i3];
                        r[i,j]:=r[i-1,j]*ans;
                end;
                k:=k*2;
        end;
        for i:=1 to b do
                t[i]:=i;
        ss(1,b);
        writeln(t[b]);
        close(input);
end.