2001求先序排列

Posted 2020-08-09

题目描述 Description

给出一棵二叉树的中序与后序排列。求出它的先序排列。（约定树结点用不同的大写字母表示，长度<=8）。

输入描述 Input Description

两个字符串，分别是中序和后序（每行一个）

输出描述 Output Description

一个字符串，先序

样例输入 Sample Input

BADC

BDCA

样例输出 Sample Output

ABCD

数据范围及提示 Data Size & Hint

 

 

 

 

题解：

树形搜索。

用后序遍历确定根节点，中序遍历确定左右子树。

var s1,s2,s:ansistring;

procedure dfs(l1,r1,l2,r2:longint);

var i:longint;

 begin

  if l1=r1 then

   begin

    write(s1[l1]);

    exit;

   end;

  write(s2[r2]);

  i:=pos(s2[r2],s1);

  if i-1>=l1 then dfs(l1,i-1,l2,l2+i-l1-1);

  if r1>=i+1 then dfs(i+1,r1,l2+i-l1,r2-1);

 end;

begin

 readln(s1);

 readln(s2);

 dfs(1,length(s1),1,length(s2));

end.