洛谷 P1037 产生数

题目描述

给出一个整数 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

输出格式：
屏幕输出，格式为：

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

输入输出样例

输入样例#1：
234 2
2 5
3 6
输出样例#1：
4

分析：
先用floyd求出每个数字能变成的其他数字求出，再用乘法原理求解，要用高精度。

代码：

var   v,u,x,y:array[0..9]of longint;   a:array[0..9,0..9]of longint;   b:array[1..1000]of longint;   sum:array[1..10000]of longint;   i,t1,k,t,result,j,h:longint;   c:char;   w:array[0..9,0..9]of boolean;procedure cz;var                     i,j,k1:longint;begin     for i:=0 to 9  do     w[i,i]:=true;      for k1:=0 to 9 do          for i:=0 to 9 do     for j:=0 to 9 do     begin          if (k1=i)or(i=j)or(i=k1)then             h:=1          else          if (w[i,j]=false)and(w[i,k1]=true)and(w[k1,j]=true)and(a[i,j]<a[i,k1]+a[k1,j])then          begin               w[i,j]:=true;               a[i,j]:=a[i,k1]+a[k1,j];          end;     end;     for i:=0 to 9 do     for j:=0 to 9 do     if w[i,j] then     inc(v[i]);end;procedure fj;var   c:array[1..1000]of longint;  x:longint;begin     fillchar(b,sizeof(b),0);     fillchar(c,sizeof(c),0);     x:=v[i];     t:=0;     while x<>0 do     begin          inc(t);          c[t]:=x mod 10;          x:=x div 10;     end;     for j:=1 to t do     b[j]:=c[j];end;procedure gj;var   j,k:longint;   su:array[1..10000]of longint;begin     fillchar(su,sizeof(su),0);        for j:=1 to t1 do     su[j]:=sum[j];     fillchar(sum,sizeof(sum),0);     for j:=1 to t1 do     for k:=1 to t  do     begin          sum[j+k-1]:=su[j]*b[k]+sum[j+k-1];          if sum[j+k-1]>9 then          begin               sum[j+k]:=sum[j+k-1]div 10;               sum[j+k-1]:=sum[j+k-1]mod 10;               if t1<j+k then               t1:=j+k;          end;          if t1<j+k-1 then          t1:=j+k-1;     end;end;begin     read(c);       fillchar(w,sizeof(w),false);     while c<>' 'do     begin          val(c,i,result);          inc(u[i]);          read(c);     end;     read(k);     readln;     for i:=1 to k do     begin          readln(x[i],y[i]);          a[x[i],y[i]]:=1;          w[x[i],y[i]]:=true;     end;     cz;     sum[1]:=1;     t1:=1;     h:=0;     for i:=0 to 9 do     begin          if (u[i]<>0)and(v[i]<>0) then begin          fj;          for j:=1 to u[i] do          gj;     end; end;     for i:=t1 downto 1 do     write(sum[i]);end.