USACO 3.4 American Heritage美国血统 (树的遍历)

Description

　　农夫约翰非常认真地对待他的奶牛们的血统。然而他不是一个真正优秀的记帐员。他把他的奶牛们的家谱作成二叉树，并且把二叉树以更线性的“树的中序遍历”和“树的前序遍历”的符号加以记录而不是用图形的方法。
　　你的任务是在被给予奶牛家谱的“树中序遍历”和“树前序遍历”的符号后，创建奶牛家谱的“树的后序遍历”的符号。每一头奶牛的姓名被译为一个唯一的字母。（你可能已经知道你可以在知道树的两种遍历以后可以经常地重建这棵树。）显然，这里的树不会有多余26个的顶点。这是在样例输入和样例输出中的树的图形表达方式：
C
/ \
/ \
B G
/ \ /
A D H
/ \
E F
　　树的中序遍历是打印左子树，根和右子树。
　　树的前序遍历是打印根，左子树和右子树。
　　树的后序遍历是打印左子树，右子树和根。

Input

第一行： 树的中序遍历
第二行： 同样的树的前序遍历

Output

单独的一行表示该树的后序遍历。

Sample Input

ABEDFCHG
CBADEFGH
Sample Output

AEFDBHGC
Source

FZY-FHN

题解：

先读入前序和中序遍历，然后用递归，先求l1的第一个字符再l2中的位置，然后遍历第m个的左半边，再遍历m的右半边，最后输出即可。

代码：

procedure solve(first:string;spos_f,epos_f:integer;mid:string;spos_m,epos_m:integer);
var
  i,root_m:integer;
begin
  if spos_f>epos_f then exit;
  for i:=spos_m to epos_m do
    if first[spos_f]=mid[i] then
      begin
        root_m:=i;
        break;
      end;
  solve(first,spos_f+1,spos_f+(root_m-spos_m),mid,spos_m,root_m-1);
  solve(first,spos_f+(root_m-spos_m)+1,epos_f,mid,root_m+1,epos_m);
  write(first[spos_f]);
end;
var
  first,mid:string;
  len:integer;
begin
  readln(mid);
  readln(first);
  len:=length(mid);
  solve(first,1,len,mid,1,len);
end.