寒假篇32

题目描述

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

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

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

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

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

输入输出格式

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

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

输入输出样例

输入样例#1：
3
10001011
输出样例#1：
IBFBBBFIBFIIIFF
做法：按题目要求直接搜索就好了，最后按后序遍历输出

var
    n:integer;
    a:ansistring;
procedure h(a:ansistring);  
var
    t,i,j:longint;
begin
 t:=length(a);
 if t=1 then if a[1]='0' then write('B') else write('I')
 else
    begin
     h(copy(a,1,t div 2));
     h(copy(a,t div 2+1,t-t div 2));
     i:=pos('0',a);
     j:=pos('1',a);
     if (i<>0)and(j<>0) then write('F');
     if (i=0)and(j<>0) then write('I');
     if (i<>0)and(j=0) then write('B')
    end;
end;

begin
 readln(n);
 readln(a);
 h(a);
end.