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

对这题我的评价只有一个字：很水（数学老师抓狂）。

不想多说，不会的自己问度娘（真他妈的废话老子会的话还用来找你吗），直接附程序：

var
  x,y:string;

procedure dfs(l1,r1,l2,r2:longint);
var
  s:longint;
begin
  s:=pos(x[l1],y);
  if s>l2 then dfs(l1+1,r1+s-l2,l2,s-1);
  if s<r2 then dfs(l1+s-l2+1,r1,s+1,r2);
  write(x[l1]);
end;

begin
  readln(y);
  readln(x);
  dfs(1,length(x),1,length(y));
  writeln; 
end.