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.