American Heritage美国血统

译 By TinyTony

描述

农夫约翰非常认真地对待他的奶牛们的血统。然而他不是一个真正优秀的记帐员。他把他的奶牛们的家谱作成二叉树，并且把二叉树以更线性的“树的中序遍历”和“树的前序遍历”的符号加以记录而不是用图形的方法。

你的任务是在被给予奶牛家谱的“树中序遍历”和“树前序遍历”的符号后，创建奶牛家谱的“树的后序遍历”的符号。每一头奶牛的姓名被译为一个唯一的字母。（你可能已经知道你可以在知道树的两种遍历以后可以经常地重建这棵树。）显然，这里的树不会有多于26个的顶点。这是在样例输入和样例输出中的树的图形表达方式：

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

树的中序遍历是按照左子树，根，右子树的顺序访问节点。

树的前序遍历是按照根，左子树，右子树的顺序访问节点。

树的后序遍历是按照左子树，右子树，根的顺序访问节点。

格式

PROGRAM NAME: heritage

INPUT FORMAT:

(file heritage.in)

第一行： 树的中序遍历

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

OUTPUT FORMAT:

(file heritage.out)

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

SAMPLE INPUT

ABEDFCHG
CBADEFGH

SAMPLE OUTPUT

AEFDBHGC

======================================

和NOIP2001那道题相似

======================

{
ID:jie19952
PROG:heritage
LANG:PASCAL
}
var
st1,st2:string;
procedure init;
begin
assign(input,'heritage.in');
assign(output,'heritage.out');
reset(input); rewrite(output);
end;
procedure terminate;
begin
close(input); close(output);
halt;
end;
procedure chuli(st1,st2:string);
var
i:longint;
begin
for i:=1 to length(st1) do
if st2[1]=st1[i] then break;
if (i>1) and (i<length(st1)) then
begin
chuli(copy(st1,1,i-1),copy(st2,2,i-1));
chuli(copy(st1,i+1,length(st1)-i),copy(st2,i+1,length(st1)-i));
end
else
if (i=1)and(i<length(st1)) then chuli(copy(st1,i+1,length(st1)-i),copy(st2,i+1,length(st1)-i))
else if (i>1)and(i=length(st1)) then chuli(copy(st1,1,i-1),copy(st2,2,i-1));
write(st2[1]);
end;
procedure main;
begin
readln(st1);
readln(st2);
chuli(st1,st2);
writeln;
end;
begin
init;
main;
terminate;
end.