2570. 【NOIP2011模拟9.17】数字生成游戏 (Standard IO)

Description

小明完成了这样一个数字生成游戏，对于一个不包含0的数字s来说，有以下3种生成新的数的规则：
1.将s的任意两位对换生成新的数字，例如143可以生成341，413，134；
2.将s的任意一位删除生成新的数字，例如143可以生成14，13，43
3.在s的相邻两位之间s[i]，s[i + 1]之间插入一个数字x，x需要满足s[i]<x<s[i + 1]，即比它插入位置两边的数小。例如143可以生成1243，1343，但是不能生成1143，1543等。
现在小明想知道，在这个生成法则下，从s开始，每次生成一个数，可以用新生成的数生成另外一个数，不断生成直到生成t至少需要多少次生成操作。
另外，小明给规则3又加了一个限制，即生成数的位数不能超过初始数s的位数。若s是143，那么1243与1343都是无法生成的；若s为1443，那么可以将s删除4变为143，再生成1243或1343。

Input

输入文件gen.in的第一行包含1个正整数，为初始数字s。
第2行包含一个正整数m，为询问个数。
接下来m行，每行一个整数t（t不包含0），表示询问从s开始不断生成数字到t最少要进行多少次操作。任两个询问独立，即上一个询问生成过的数到下一个询问都不存在，只剩下初始数字s。

Output

输出文件gen.out包括m行，每行一个正整数，对每个询问输出最少操作数，如果无论也变换不成，则输出-1。

Sample Input

143
3
134
133
32

Sample Output

1
-1
4

【样例说明】

143->134
133无法得到
143->13->123->23->32

【数据规模与约定】

对于20%的数据，s<100；
对于40%的数据，s<1000；
对于40%的数据，m<10；
对于60%的数据，s<10000；
对于100%的数据，s<100000，m≤50000。

题解

乍一看很难，但其实数字只有5位，搜索，枚举，BFS。

代码

var
  a,b:array[0..100000] of longint;
  len,x,h,t:longint;
  s:string;
procedure ff1;
var
  i,j,n,l:longint;
  y,m:string;
begin
  str(x,y);
  l:=length(y);
  for i:=1 to l-1 do
    for j:=i+1 to l do
      if i<>j then
        begin
          m:=copy(y,1,i-1)+y[j]+copy(y,i+1,j-i-1)+y[i]+copy(y,j+1,l);
          val(m,n);
          if m='' then exit;
          if b[n]<0 then
            begin
              b[n]:=b[x]+1;
              inc(t);
              a[t]:=n;
            end;
        end;
end;
procedure ff2;
var
  i,j,n,l:longint;
  y,m:string;
begin
  str(x,y);
  l:=length(y);
  if l=1 then exit;
  for i:=1 to l do
    begin
      m:=copy(y,1,i-1)+copy(y,i+1,l);
      if m='' then exit;
      val(m,n);
      if b[n]<0 then
        begin
          b[n]:=b[x]+1;
          inc(t);
          a[t]:=n;
        end;
    end;
end;
procedure ff3;
var
  i,j,n,k,g,l:longint;
  y,m,z:string;
begin
  str(x,y);
  l:=length(y);
  if l>=len then exit;
  if l=1 then exit;
  for i:=1 to l-1 do
    begin
      val(y[i],k);val(y[i+1],g);
      for j:=k+1 to g-1 do
        begin
          str(j,z);
          m:=copy(y,1,i)+z+copy(y,i+1,l);
          val(m,n);
          if b[n]<0 then
            begin
              b[n]:=b[x]+1;
              inc(t);
              a[t]:=n;
            end;
        end;
    end;
end;
var
  n,m,c,i:longint;
begin
  readln(s);
  val(s,n);
  len:=length(s);
  for i:=0 to 100000 do b[i]:=-1;
  b[n]:=0;
  t:=1;
  a[1]:=n;
  while h<t do
    begin
      inc(h);x:=a[h];
      ff1;
      ff2;
      ff3;
    end;
  readln(m);
  for i:=1 to m do
    begin
      readln(c);
      writeln(b[c]);
    end;
end.