Description
考虑两个n位的十进制正整数A和B，都没有前导0。我们需要找到两个最近的靠近A的n位数（第一个比A大或与A相等，第二个严格比A小），使得它们的十进制表示是B中所有数字的某个排列。
比如说，假如A=3022并且B=1232，用B的数字我们可以获得以下的4位数字：1223, 1232, 1322, 2123, 2132, 2213, 2231, 2312, 2321, 3122, 3212和3221。最小的比A大或者和A相等的数，且用B中的数字组成的是3122，并且最大的严格比A小的数是2321。如果A=1232而且B=3022，可能的数字是2023, 2032, 2203, 2230, 2302, 2320, 3022, 3202和3220。在用B中数字组成的数中，最小的比A大或与A相等的数是2023，没有比A小的数。
对于给定的A和B，写一个程序closest找到这些“最靠近A”的数字，或者判断它们中的一个不存在。
Input
输入文件closest.in包含2行：
第1行为一个正整数A。
第1行为一个正整数B。
（A,B均为n位的正整数）
Output
输出文件closest.out共有2行。
第一行：最小的不比A小的n位数，没有前导0，包含B中的所有字符，以某一顺序排列。如果这样的数不存在，那么输出0。
第二行：最大的比A小的n位数，没有前导0，包含B中的所有字符，以某一顺序排列。如果这样的数不存在，那么输出0。
Sample Input
输入样例1
3075
6604
输入样例2
3000203
4562454
Sample Output
输出样例1
4066
0
输出样例2
4244556
2655444
Hint
【限制】
100%的数据满足：1<=n<=60
程序：
var
a,b,p,v:array[0..60] of longint;
n,i,j,k,u,min,max:longint;
s:char;
begin
assign(input,'closest.in');
assign(output,'closest.out');
reset(input);
rewrite(output);
while not eoln do
begin
inc(n);
read(s);
a[n]:=ord(s)-ord('0');
end;
readln;
for i:=1 to n do
begin
read(s);
b[i]:=ord(s)-ord('0');
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if b[i]>b[j] then
begin
b[0]:=b[i];b[i]:=b[j];b[j]:=b[0];
end;
for i:=1 to n do
begin
min:=maxlongint;
u:=0;
for j:=1 to n do
if (b[j]<min)and(v[j]=0)and(b[j]>=a[i]) then
begin
min:=b[j];
u:=j;
end;
if u>0 then
begin
p[i]:=u;
v[u]:=i;
end;
if (min>a[i])and(u>0) then
begin
for j:=1 to i do
write(b[p[j]]);
for j:=1 to n do
if v[j]=0 then write(b[j]);
break;
end;
if u=0 then
begin
for j:=i-1 downto 1 do
begin
v[p[j]]:=0;
min:=maxlongint;
u:=0;
for k:=1 to n do
if (v[k]=0)and(b[k]<min)and(b[k]>a[j]) then
begin
min:=b[k];
u:=k;
end;
if u>0 then
begin
v[u]:=j;
p[j]:=u;
for k:=1 to j do
write(b[p[k]]);
for k:=1 to n do
if v[k]=0 then write(b[k]);
break;
end;
end;
if u=0 then write(0);
break;
end;
if i=n then
for j:=1 to n do
write(a[j]);
end;
writeln;
fillchar(v,sizeof(v),0);
fillchar(p,sizeof(p),0);
for i:=1 to n do
begin
max:=-1;
u:=0;
for j:=1 to n do
if (b[j]>max)and(b[j]<=a[i])and(v[j]=0) then
begin
if (i=1)and(b[j]=0) then continue;
max:=b[j];
u:=j;
end;
if u>0 then
begin
p[i]:=u;
v[u]:=i;
end;
if (u>0)and(max<a[i]) then
begin
for j:=1 to i do
write(b[p[j]]);
for j:=n downto 1 do
if v[j]=0 then write(b[j]);
break;
end;
if (u=0)or(i=n) then
begin
for j:=i downto 1 do
begin
v[p[j]]:=0;
max:=-1;
u:=0;
for k:=1 to n do
if (b[k]>max)and(b[k]<a[j])and(v[k]=0) then
begin
if (j=1)and(b[k]=0) then continue;
max:=b[k];
u:=k;
end;
if u>0 then
begin
v[u]:=j;
p[j]:=u;
for k:=1 to j do
write(b[p[k]]);
for k:=n downto 1 do
if v[k]=0 then write(b[k]);
break;
end;
end;
if u=0 then write(0);
break;
end;
end;
writeln;
close(input);
close(output);
end.