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[0..1100,0..1100] of longint;
    s,a,d:array[0..20] of longint;
    ans,p,x,i,j,k,m,n,t,tot:longint;
    ch:char;

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

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