FBI树

我们可以把由“0”和“1”组成的字符串分为三类：全“0”串称为B串，全“1”串称为I串，既含“0”又含“1”的串则称为F串。

FBI树是一种二叉树[1]，它的结点类型也包括F结点，B结点和I结点三种。由一个长度为2N的“01”串S可以构造出一棵FBI树T，递归的构造方法如下：

1) T的根结点为R，其类型与串S的类型相同；

2) 若串S的长度大于1，将串S从中间分开，分为等长的左右子串S1和S2；由左子串S1构造R的左子树T1，由右子串S2构造R的右子树T2。

现在给定一个长度为2N的“01”串，请用上述构造方法构造出一棵FBI树，并输出它的后序遍历[2]序列。

输入的第一行是一个整数N（0 <= N <= 10），第二行是一个长度为2N的“01”串。

输出t包括一行，这一行只包含一个字符串，即FBI树的后序遍历序列。

3

10001011

IBFBBBFIBFIIIFF

对于40%的数据，N <= 2；

对于全部的数据，N <= 10。

一看题我就疯了。。。交了三遍。。。

分类讨论n=0和n>=1

n=0时，直接判断输出

n>0时，递归建树，后续遍历判断输出。

type node=record
                data:ansistring;
                lson,rson:longint;
                end;

var tree:array[1..10000]of node;
      i,j,k,l,n,m:longint;
      choose0,choose1:boolean;
      ch:char;

procedure print;                                         {判断输出}
               begin if choose0 and choose1
                          then write(‘F‘);
                        if choose0 and not choose1
                           then write(‘B‘);
                        if not choose0 and choose1
                           then write(‘I‘);
               end;

procedure dfs(s,m:longint);                        {递归建树}
                var i,j,k,l:longint;
                     choose0,choose1:boolean;
                begin if m>=1
                           then begin tree[s].lson:=s*2;
                                           tree[s].rson:=s*2+1;
                                           tree[tree[s].lson].data:=copy(tree[s].data,1,m div 2);
                                           tree[tree[s].rson].data:=copy(tree[s].data,m div 2+1, m div 2);
                                           dfs(tree[s].lson,m div 2);
                                           choose0:=false; choose1:=false;
                                           for i:=1 to length(tree[tree[s].lson].data) do
                                                begin if tree[tree[s].lson].data[i]=‘0‘
                                                           then choose0:=true;
                                                         if tree[tree[s].lson].data[i]=‘1‘
                                                            then choose1:=true;
                                                end;
                                           if choose0 and choose1
                                              then write(‘F‘);
                                           if choose0 and not choose1
                                              then write(‘B‘);
                                           if not choose0 and choose1
                                             then write(‘I‘);
                                          dfs(tree[s].rson,m div 2);
                                          choose0:=false; choose1:=false;
                                          for i:=1 to length(tree[tree[s].rson].data) do
                                               begin if tree[tree[s].rson].data[i]=‘0‘
                                                          then choose0:=true;
                                                        if tree[tree[s].rson].data[i]=‘1‘
                                                           then choose1:=true;
                                               end;
                                          if choose0 and choose1
                                             then write(‘F‘);
                                          if choose0 and not choose1
                                             then write(‘B‘);
                                          if not choose0 and choose1
                                             then write(‘I‘);
                                 end;
                end;

begin readln(n);
         if n=0                                             {判断n=0时的特殊情况}
           then begin read(ch);
                           if ch=‘1‘
                             then begin writeln(‘I‘);
                                             halt;
                                     end
                             else begin writeln(‘B‘);
                                             halt;
                                   end;
                  end;
        m:=1;
        for i:=1 to n do              {求字符长度}
             m:=m*2;
        readln(tree[1].data);
        tree[1].lson:=2;
        tree[1].rson:=3;
        tree[2].data:=copy(tree[1].data,1,m div 2);
        tree[3].data:=copy(tree[1].data,m div 2+1,m div 2);
        dfs(2,m div 2);
        choose0:=false;          {判断树根的左儿子}
        choose1:=false;
        for i:=1 to m div 2 do
             begin if tree[2].data[i]=‘0‘
                        then choose0:=true;
                     if tree[2].data[i]=‘1‘
                        then choose1:=true;
             end;
        print;
        dfs(3,m div 2);
        choose0:=false; choose1:=false;   {判断树根的右儿子}
        for i:=1 to m div 2 do
             begin if tree[3].data[i]=‘0‘
                        then choose0:=true;
                      if tree[3].data[i]=‘1‘
                        then choose1:=true;
             end;
        print;
        choose0:=false; choose1:=false;             {判断树的根}
        for i:=1 to m do
             begin if tree[1].data[i]=‘0‘
                        then choose0:=true;
                     if tree[1].data[i]=‘1‘
                        then choose1:=true;
             end;
        print;
       writeln;
end.