[递归]3.4.2 American Heritage

American Heritage

美国血统

译 By TinyTony

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

 C
/ \
/ \
B G
/ \ /
A D H
/ \
E F

树的中序遍历是打印左子树，根和右子树。
树的前序遍历是打印根，左子树和右子树。
树的后序遍历是打印左子树，右子树和根。

PROGRAM NAME: heritage

INPUT FORMAT

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

SAMPLE INPUT (file heritage.in)

ABEDFCHG
CBADEFGH

OUTPUT FORMAT

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

SAMPLE OUTPUT (file heritage.out)

AEFDBHGC

 

 

题目意思一眼就可以看明白。

但是程序并不是十分容易写，如果不用递归来写的话会又长又麻烦。

 

设st1为中序遍历 st2为前序遍历

 

则显然st2[1]是树的根。并且st1被st2[1]划分为左右两块

假设i为st2[1]在st1里的位置，则st1[1..i]为st2[1]的左子树，st1[i+1,n]为st2[1]右子树。

我们只需要每次都取一个st2[k]，递归的划分st1。

当分不了时则输出即可

 

 

var st1,st2:string;

procedure work(x,y:string);
var i:longint;
begin
    if length(x)<=1 then begin write(x);exit;end;
    i:=pos(x[1],y);
    work(copy(x,2,i-1),copy(y,1,i-1));
    work(copy(x,i+1,length(x)-i),copy(y,i+1,length(y)-i));
    write(x[1]);
end;


begin
    readln(st1);
    readln(st2);
    work(st2,st1);
    readln;readln;
end.