bzoj1231

看到n<=16不难想到状压dp

我们用二进制表示前x个位置，哪些牛被已经被选过了

这里我们可以通过穷举二进制数的顺序来转移

所以二维就够了

var a:array[0..20] of longint;
    f:array[0..1 shl 16,0..20] of int64;
    n,i,j,k,m,t:longint;
    ans:int64;


begin
  readln(n,t);
  for i:=0 to n-1 do
    readln(a[i]);
  m:=1 shl n-1;
  for i:=0 to n-1 do
    f[1 shl i,i]:=1;
  for i:=0 to m do
    for j:=0 to n-1 do
      if (i and (1 shl j)<>0) then
      begin
        for k:=0 to n-1 do
          if (i and (1 shl k)=0) and (abs(a[j]-a[k])>t) then
            inc(f[i or (1 shl k),k],f[i,j]);
       end;

  ans:=0;
  for i:=0 to n-1 do
    ans:=ans+f[m,i];
  writeln(ans);
end.