2016普级组模拟试题(20161114) 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

题解

把b中各种数字个数记录下来，从左往右枚举每一位放上比它大的数字，一旦有一位大于它，则后面的数从小到大排序。

代码

var  a,g:array[0..9] of longint;  t:array[1..100] of longint;  s,b:string;  f:boolean;procedure mains(x,y:longint);var  i:longint;begin  if (x-1=length(b))and(f) then    begin      for i:=1 to x-1 do        write(t[i]);      writeln;      halt;    end;  if (x-1=length(b))and(not f) then    exit;  for i:=9 downto 0 do    if (a[i]>0)and(f)or(a[i]>0)and(i<=y) then      begin        if (i=0)and(x=1) then break;        if i<y then f:=true;        dec(a[i]);        t[x]:=i;        mains(x+1,ord(s[x+1])-48);        inc(a[i]);      end;end;procedure main(x,y:longint);var  i:longint;begin  if x-1=length(b) then    begin      for i:=1 to x-1 do        write(t[i]);      writeln;      fillchar(t,sizeof(t),0);      f:=false;a:=g;      mains(1,ord(s[1])-48);      writeln(0);       halt;    end;  for i:=0 to 9 do    if (a[i]>0)and(f)or(a[i]>0)and(i>=y) then      begin        if i>y then f:=true;        dec(a[i]);        t[x]:=i;        main(x+1,ord(s[x+1])-48);        inc(a[i]);      end;end;var  i:longint;begin  f:=false;  readln(s);  readln(b);  for i:=1 to length(b) do    inc(a[ord(b[i])-48]);  g:=a;  main(1,ord(s[1])-48);  writeln(0);  fillchar(t,sizeof(t),0);  f:=false;a:=g;  mains(1,ord(s[1])-48);  writeln(0);end.