heritage.pas

Magio牛的usaco源代码

{
ID:maigoak1
PROG:heritage
}

program heritage;
var
  fin,fout:text;
  mid,pre:string;
procedure traverse(mid,pre:string);
  var
    len,p:byte;
  begin
    len:=length(mid);
    p:=pos(pre[1],mid);
    if p>1 then traverse(copy(mid,1,p-1),copy(pre,2,p-1));
    if p<len then traverse(copy(mid,p+1,len-p),copy(pre,p+1,len-p));
    write(fout,pre[1]);
  end;
begin
  assign(fin,'heritage.in');
  reset(fin);
  readln(fin,mid);
  readln(fin,pre);
  close(fin);

  assign(fout,'heritage.out');
  rewrite(fout);
  traverse(mid,pre);
  writeln(fout);
  close(fout);
end.