bzoj1072

还是那句话s<=10 必然想到状压

题目唯一的难点在于怎么转移整除

整除即是mod d=0,我们用f[cur,j]表示选取状况为cur，余数为j的方案数

注意一个数a1a2a3…an (ai表示第i位的数字）

这个数可以这样表示[(a1*10+a2)*10+a3]*10……

根据mod的运算律，所以转移就很明显了吧

注意这里算出的方案数没有考虑几个数字重复的情况

所以还要用可重复排列的技术方法除一下

 var f:array[..,..] of longint;
     s,a,d:array[..] of longint;
     ans,p,x,i,j,k,m,n,t,tot:longint;
     ch:char;

 begin
   readln(tot);
   d[]:=;
   for i:= to  do
     d[i]:=d[i-]*i;
   while tot> do
   begin
     dec(tot);
     fillchar(s,sizeof(s),);
     t:=;
     read(ch);
     while ch<>' ' do
     begin
       x:=ord(ch)-;
       inc(t);
       a[t]:=x;
       inc(s[x]);
       read(ch);
     end;
     readln(p);
     fillchar(f,sizeof(f),);
     m:= shl t-;
     f[,]:=;
     for i:= to m do
       for j:= to p- do
         for k:= to t- do
         begin
           x:= shl k;
           if i and x= then
             inc(f[i or x,(j*+a[k+]) mod p],f[i,j]);
         end;

     ans:=f[m,];
     for i:= to  do
       ans:=ans div d[s[i]];
     writeln(ans);
   end;
 end.