P1087 FBI树

题目描述

我们可以把由“0”和“1”组成的字符串分为三类：全“0”串称为B串，全“1”串称为I串，既含“0”又含“1”的串则称为F串。
FBI树是一种二叉树，它的结点类型也包括F结点，B结点和I结点三种。由一个长度为2^N的“01”串S可以构造出一棵FBI树T，递归的构造方法如下：
T的根结点为R，其类型与串S的类型相同；
若串S的长度大于1，将串S从中间分开，分为等长的左右子串S1和S2；由左子串S1构造R的左子树T1，由右子串S2构造R的右子树T2。
现在给定一个长度为2^N的“01”串，请用上述构造方法构造出一棵FBI树，并输出它的后序遍历序列。

输入样例#1：

3
10001011

输出样例#1：

IBFBBBFIBFIIIFF

思路

每次把字符串分为两部分，判断是'F','B'还是'I',递归时出栈的顺序就是后序遍历。

var
  n:longint;
  s:ansistring;
procedure fj(s1:ansistring);
begin
  if length(s1)<1 then exit;
  fj(copy(s1,1,length(s1) div 2));
  if length(s1)<>1 then
    fj(copy(s1,length(s1) div 2+1,length(s)));
  if pos('0',s1)=0 then
    begin write('I');exit;end;
  if pos('1',s1)=0 then
    begin write('B');exit;end;
  write('F');
end;
begin
  readln(n);
  readln(s);
  fj(s);
end.