SSL 1021——产生数【最短路】【高精度】

Description

给出一个整数 n（n<10^30) 和 k 个变换规则（k<=15）。
　　规则：
　　　一位数可变换成另一个一位数：
　　　规则的右部不能为零。
　　例如：n=234。有规则（k＝2）：
　　　　2－> 5
　　　　3－> 6
　　上面的整数 234 经过变换后可能产生出的整数为（包括原数）:
　　　234
　　　534
　　　264
　　　564
　　共 4 种不同的产生数
问题：
　　给出一个整数 n 和 k 个规则。
求出：
　　经过任意次的变换（0次或多次），能产生出多少个不同整数。
　　仅要求输出个数。

Input

n k
x1 y1
x2 y2
… …
xn yn

Output

一个整数（满足条件的个数）：

Sample Input

234 2
2 5
3 6
Sample Output

4

---

先用Floyd将每一个数能转换为其它数的个数求出来
再用高精乘低精的算法，将解求出来。

---

代码如下：

var a:array[1..31]of 0..9;
    g:array[0..9,0..9]of boolean;
    f:array[0..9]of byte;
    n,k,i,j,h,p,l1,l2,long:word;
    x:char;
    t:byte;
    s:array[1..100]of 0..100;
procedure gjd(a:byte);
     var i:integer;
     begin
     for i:=1 to long do s[i]:=s[i]*a;
     for i:=1 to long+1 do
          begin
          inc(s[i+1],s[i]div 10);
          s[i]:=s[i] mod 10;
          end;
     if s[long+1]>0 then inc(long);
     if s[long+1]>0 then inc(long);
     end;
begin
read(x);
while x<>' ' do
     begin
     inc(p);
     a[p]:=ord(x)-ord('0');
     read(x);
     end;
readln(k);
for i:=0 to 9 do
 for j:=0 to 9 do
  g[i,j]:=false;
for i:=1 to k do
    begin
    read(l1);
    readln(l2);
    g[l1,l2]:=true;
    end;
for h:=0 to 9 do
 for i:=0 to 9 do
  for j:=0 to 9 do
     g[i,j]:=g[i,j]or(g[i,h] and g[h,j]);
for i:=0 to 9 do g[i,i]:=true;
for i:=0 to 9 do
 for j:=0 to 9 do
  inc(f[i],ord(g[i,j]));
s[1]:=1;
long:=1;
for i:=1 to p do gjd(f[a[i]]);
for i:=long downto 1 do write(s[i]);
end.