洛谷 P1037 产生数

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+高精度：
1.用floyd求出每个数字间接或直接变成的数字有多少种。
2.将每一位可以变的数量乘起来；
位数过大，要用高精度，不然会炸。

var   f:array [0..9,0..9] of boolean;   a:array [0..9] of longint;   ans:array [1..111] of longint;   i,j,k,m,x,y,l,ll:longint;   n,aa:string;begin     readln(n);     aa:=copy(n,pos(' ',n)+1,length(n)-pos(' ',n));     val(aa,m);     n:=copy(n,1,pos(' ',n)-1);     for i:=1 to m do         begin             readln(x,y);             f[x,y]:=true;         end;     for k:=0 to 9 do         for i:=0 to 9 do             for j:=0 to 9 do                 f[i,j]:=f[i,j] or (f[i,k] and f[k,j]);     for i:=0 to 9 do f[i,i]:=true;     for i:=0 to 9 do         for j:=0 to 9 do if f[i,j] then inc(a[i]);     l:=1;  ans[1]:=1;     for i:=1 to length(n) do         begin              y:=a[ord(n[i])-48];              for j:=1 to l do ans[j]:=ans[j]*y;             for j:=1 to l+1 do                 begin                     ans[j+1]:=ans[j+1]+ans[j] div 10;                     ans[j]:=ans[j] mod 10;                 end;             if ans[l+1]>0 then inc(l);         end;     for i:=l downto 1 do write(ans[i]);end.