考古

我竟然晚了8年。
var
a, b:string;
procedure make(z, h:string);
var
m, s:longint;
begin
m:=length(z);
write(h[m]);
s:=pos(h[m], z);
if s>1 then make(copy(z, 1, s-1), copy(h, 1, s-1));
if m>s then make(copy(z, s+1, m-s), copy(h, s, m-s))
end;
begin
readln(a);
read(b);
make(a, b)
end.
君生我未生，我生君已老。

我静静站在孤坟上为一个逝去的*Noier*祷告。

我竟然晚了8年。。。。

《算法竞赛入门经典》上有

君生我未生，我生君已老。

君生我未生，我生君已老。

我来晚了 7年后。。 挽尊

我来晚了 5年后。。 挽尊