源程序如下：（我是学pascal的，其他语言的不要，不好意思了~~~）
program tree(input, output);
var s1, s2 : string;
procedure try(l1, r1, l2, r2 : integer);
var m : integer;
begin
m := pos(s1[l1], s2);
if ml2 then try(l1 1, l1 m - l2, l2, m - 1);
if mr2 then try(l1 m - l2 1, r1, m 1, r2);
write(s1[l1])
end;
begin
readln(s1);
readln(s2);
try(1, length(s1), 1, length(s2));
writeln
end.
|
