jzxx1526混亂的奶牛

題目描述
Farmer John的N(4 <= N <= 16)頭奶牛中的每一頭都有一個唯一的編號S_i(1 <= S_i <= 25,000). 奶牛爲她們的編號感到驕傲, 所以每一頭奶牛都把她的編號刻在一個金牌上, 並且把金牌掛在她們寬大的脖子上. 奶牛們對在擠奶的時候被排成一支"混亂"的隊伍非常反感. 如果一個隊伍裏任意兩頭相鄰的奶牛的編號相差超過K (1 <= K <= 3400), 它就被稱爲是混亂的. 比如說，當N = 6, K = 1時,1, 3, 5, 2, 6, 4 就是一支"混亂"的隊伍, 但是 1, 3, 6, 5, 2, 4 不是(因爲5和6只 相差1). 那麼, 有多少種能夠使奶牛排成"混亂"的隊伍的方案呢? 對於你前10次的提交, 你的程序會在一部分正式的測試數據上運行, 並且返回運行的結果.

輸入

• 第 1 行: 用空格隔開的兩個整數N和K * 第 2…N+1 行: 第i+1行包含了一個用來表示第i頭奶牛的編號的整數: S_i

輸出

• 第 1 行: 只有一個整數, 表示有多少種能夠使奶牛排成"混亂"的隊伍的方案. 答案保證是一個在64位範圍內的整數.

樣例輸入
4 1
3
4
2
1
樣例輸出
2

來源
USACO 2008 November Gold

傳送門

滿分代碼：
program haha;
var
   n,i,j,k,m,tot : longint;
   f         : array[0..70000,0..25] of int64;
   a,d         : array[1..20] of longint;
procedure swap(var x,y: longint);
var
   t : longint;
begin
   t:=x;
   x:=y;
   y:=t;
end; { swap }
procedure init;
begin
   readln(n,m);
   for i:=1 to n do
      readln(a[i]);
   for i:=1 to n-1 do
      for j:=i+1 to n do
     if a[i]<a[j] then
        swap(a[i],a[j]);
end; { init }
function dp(x,y    : Longint ):int64;
var
   i,j,k: longint;
begin
   if f[x,y]>=0 then exit(f[x,y]);
   dp:=0;
   for i:=1 to n do
      if 1<<(i-1) and x<>0 then
     if abs(a[y]-a[i])>m then
        dp:=dp+dp(x-1<<(y-1),i);
   f[x,y]:=dp;
   exit(dp);
end;
procedure print;
var
   ans : int64;
begin
   fillchar(f,sizeof(f),130);
   for i:=1 to n do
      f[1<<(i-1),i]:=1;
   ans:=0;
   for i:=1 to n do
      inc(ans,dp(1<<n-1,i));
   writeln(ans);
end; { print }
begin
   init;
   print;
end.