2002年分区联赛普级组之三 产生数
Time Limit:1000MS Memory Limit:65536K
Total Submit:167 Accepted:73
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
Source
elba
var
m,k,l,a,b,i,p:longint; s,n:string; ans:int64;
f:array[0..10,0..10] of boolean;
tot:array[0..10] of longint;
begin
readln(s);
m:=pos(' ',s);
n:=copy(s,1,m-1);
val(copy(s,m,length(s)-m+1),k);
fillchar(f,sizeof(f),false);
for i:=1 to k do
begin
readln(a,b);
f[a,b]:=true;
end;
for i:=0 to 9 do
for p:=0 to 9 do
for l:=0 to 9 do
begin
if p=l then f[p,l]:=true;
if(f[p,i])and(f[i,l]) then f[p,l]:=true;
end;
for i:=0 to 9 do
for p:=0 to 9 do
if f[i,p] then inc(tot[i]);
ans:=1;
for i:=1 to length(n) do
if tot[ord(n[i])-48]>0 then ans:=ans*tot[ord(n[i])-48];
writeln(ans);
end.
或者高手标程:
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.