Closest

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.