25 lines
559 B
ObjectPascal
25 lines
559 B
ObjectPascal
program flist;
|
|
var i,j,n,m:longint;
|
|
s,s1,ss:string;
|
|
a:array['A'..'z']of longint;
|
|
procedure zjc(st,en:longint);
|
|
var min,i,z:longint;
|
|
begin
|
|
min:=maxlongint;
|
|
for i:=st to en do
|
|
if a[s[i]]<min then begin min:=a[s[i]];z:=i;end;
|
|
write(s[z]);
|
|
if z>st then zjc(st,z-1);
|
|
if z<en then zjc(z+1,en);
|
|
end;
|
|
begin
|
|
assign(input,'flist.in');reset(input);
|
|
assign(output,'flist.out');rewrite(output);
|
|
readln(s);
|
|
readln(s1);
|
|
for i:=1 to length(s1) do
|
|
a[s1[i]]:=i;
|
|
zjc(1,length(s));
|
|
close(input);close(output);
|
|
end.
|