codeves天梯 产生数

给出一个整数 n（n<10^30) 和 k 个变换规则（k<=15）。
　　规则：
　　　一位数可变换成另一个一位数：
　　　规则的右部不能为零。
　　例如：n=234。有规则（k＝2）：
　　　　2－> 5
　　　　3－> 6
　　上面的整数 234 经过变换后可能产生出的整数为（包括原数）:
　　　234
　　　534
　　　264
　　　564
　　共 4 种不同的产生数
问题：
　　给出一个整数 n 和 k 个规则。
求出：
　　经过任意次的变换（0次或多次），能产生出多少个不同整数。

　　仅要求输出个数。

分析：这题真心不难==，仔细看一下题目就是给出一些单向边，询问两个点之间是否联通，统计联通数，最后乘法原理相乘即是答案。数字只能在0至9之间转换，就直接用floyed做就好了。（其实觉得数据水了，这种暴力的方法是不能判断首位是否转换为0的==）

var
  f:array[0..9,0..9] of boolean;
  sum:array[0..9] of longint;
  s,a:string;
  k,x,y,i,j,l:longint;
  ans:int64;

begin
  readln(s);
  for i:=1 to length(s) do
    if s[i]<>' ' then
      a:=a+s[i]
    else break;
  delete(s,1,i);
  val(s,k);
  for i:=1 to k do
    begin
      readln(x,y);
      f[x,y]:=true;
  end;
  for i:=0 to 9 do
    f[i,i]:=true;
  for l:=0 to 9 do
    for i:=0 to 9 do
      for j:=0 to 9 do
        if (f[i,l]) and (f[l,j]) then
          f[i,j]:=true;
  for i:=0 to 9 do
    for j:=0 to 9 do
      if f[i,j] then
        inc(sum[i]);
  ans:=1;
  for i:=1 to length(a) do
    ans:=ans*sum[ord(a[i])-48];
  writeln(ans);
end.