P2915 [USACO08NOV]奶牛混合起来（状压dp入门）

约翰家有N头奶牛，第i头奶牛的编号是Si，每头奶牛的编号都是唯一的。这些奶牛最近 在闹脾气，为表达不满的情绪，她们在挤奶的时候一定要排成混乱的队伍。在一只混乱的队 伍中，相邻奶牛的编号之差均超过K。比如当K = 1时，1, 3, 5, 2, 6, 4就是一支混乱的队伍， 而1, 3, 6, 5, 2, 4不是，因为6和5只差1。请数一数，有多少种队形是混乱的呢？

输入输出样例

输入样例#1：

4 1

3

4

2

1

输出样例#1：

2

program df;

var i,j,n,m,x,y,z,k:longint;

t:int64;

a,b:array[0..1000000] of longint;

f:array[0..16,0..1 shl 16] of int64;

begin

readln(n,m);

for i:=0 to n-1 do

readln(a[i]);

for i:=0 to n-1 do

f[i,1 shl i]:=1;

for j:=0 to (1 shl n)-1 do

for i:=0 to n-1 do

if (1 shl i and j)=1 shl i then

for k:=0 to n-1 do

if ((j and (1 shl k))=0) and (abs(a[i]-a[k])>m) then

f[k,j or (1 shl k)]:=f[k,j or (1 shl k)]+f[i,j];

t:=0;

for i:=0 to n-1 do

t:=t+f[i,(1 shl n)-1];

writeln(t);

end.