首页 > 代码库 > 2002产生数
2002产生数
给出一个整数 n（n<10^30) 和 k 个变换规则（k<=15）。
规则：
一位数可变换成另一个一位数：
规则的右部不能为零。
例如：n=234。有规则（k＝2）：
2－> 5
3－> 6
上面的整数 234 经过变换后可能产生出的整数为（包括原数）:
234
534
264
564
共 4 种不同的产生数
问题：
给出一个整数 n 和 k 个规则。
求出：
经过任意次的变换（0次或多次），能产生出多少个不同整数。
仅要求输出个数。
键盘输人，格式为：
n k
x1 y1
x2 y2
... ...
xn yn
屏幕输出，格式为：
一个整数（满足条件的个数）
234 2
2 5
3 6
4
题解：
高精度+floyd。
求出每一个数可以演变成的数（注意还有个自己），根据乘法原理乘出序列中每一个数可以演变成的数。
var l,i,x,y,k,j:longint;
f:array[0..11,0..11]of boolean;
ans:array[0..11]of longint;
a:array[0..1001]of longint;
s:ansistring;
begin
readln(s);
val(copy(s,pos(‘ ‘,s)+1,length(s)),k);
delete(s,pos(‘ ‘,s),length(s));
l:=length(s);
for i:=1 to k do
begin
read(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 (i=j) or f[i,k] and f[k,j];
for i:=0 to 9 do
for j:=0 to 9 do ans[i]:=ans[i]+ord(f[i,j]);
a[1]:=1;
a[0]:=1;
for i:=1 to l do
begin
k:=ord(s[i])-48;
a[1]:=a[1]*ans[k];
for j:=2 to a[0] do
begin
a[j]:=a[j]*ans[k]+a[j-1]div 10;
a[j-1]:=a[j-1] mod 10;
end;
if a[a[0]]>9 then
begin
a[a[0]+1]:=a[a[0]] div 10;
a[a[0]]:=a[a[0]] mod 10;
inc(a[0]);
end;
end;
for i:=a[0] downto 1 do write(a[i]);
end.
2002产生数