首先正面做不太好做,考虑容斥。
设 f ( m ) f(m) f(m) 表示排列中至少有 m m m 处 ∣ P i − i ∣ = k |P_i-i|=k ∣Pi−i∣=k 的方案数。
那么答案就是 ∑ i = 0 n ( − 1 ) i f ( i ) \sum\limits_{i=0}^n(-1)^if(i) i=0∑n(−1)if(i)。
原题可以看成一个二分图的形式:( n = 5 n=5 n=5 时)
左边是排列的编号,右边是权值,那么现在要做的就是连 n n n 条边,补全这个二分图,使得每个点的度数都是 1 1 1。
那么考虑什么时候会出现 ∣ P i − i ∣ = k |P_i-i|=k ∣Pi−i∣=k 的情况。
[外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-kmHchJ2G-1601819094543)(https://cdn.luogu.com.cn/upload/image_hosting/5s8onaw1.png)]
如图,当 k = 1 k=1 k=1 时,连出上图中的任意一条边都会使得 ∣ P i − i ∣ = k |P_i-i|=k ∣Pi−i∣=k。
我们考虑选出一些边,而且任意两条边都不能接在同一个端点上(因为每个点的度数要为 1 1 1)。
发现图中的边构成了若干条链且互不影响,于是把他们拿出来铺平:
此时如果要使得 ∣ P i − i ∣ = k |P_i-i|=k ∣Pi−i∣=k,只有相邻两个点之间才会连边,而且 a 5 a_5 a5 和 1 1 1 (第 5 5 5 个点和第 6 6 6 个点)之间不会连边。
设 d p ( i , j , 0 / 1 ) dp(i,j,0/1) dp(i,j,0/1) 表示已经考虑了前 i i i 个点,其中连了 j j j 条边,第 i − 1 i-1 i−1 个点和第 i i i 个点之间是/否连边的方案数。
那么容易得到:
{ d p ( i , j , 0 ) = d p ( i − 1 , j , 0 ) + d p ( i − 1 , j , 1 ) d p ( i , j , 1 ) = d p ( i − 1 , j − 1 , 0 ) \begin{cases} dp(i,j,0)=dp(i-1,j,0)+dp(i-1,j,1)\\ dp(i,j,1)=dp(i-1,j-1,0) \end{cases} {dp(i,j,0)=dp(i−1,j,0)+dp(i−1,j,1)dp(i,j,1)=dp(i−1,j−1,0)
但是还有一种特殊情况,那就是 i = 6 i=6 i=6 时,第 5 5 5 个点和第 6 6 6 个点之间不能连边,所以此时 d p ( i , j , 1 ) dp(i,j,1) dp(i,j,1) 不存在。
所以我们需要开一个数组判断一下某一个点是否是链的开头。
按着这个 dp,那么有 f ( m ) = ( n − m ) ! × d p ( 2 n , m ) f(m)=(n-m)!\times dp(2n,m) f(m)=(n−m)!×dp(2n,m)。
意思就是先把满足有 m m m 个 ∣ P i − i ∣ = k |P_i-i|=k ∣Pi−i∣=k 的方案数算出来,剩下的数随便排列。
代码如下:
#include<bits/stdc++.h>
#define N 2010
#define ll long long
#define mod 924844033
using namespace std;
int n,k,tot,a[N];
ll fac[N],dp[N<<1][N][2];
bool vis[N<<1];
int main()
{
scanf("%d%d",&n,&k);
fac[0]=1;
for(int i=1;i<=n;i++) fac[i]=fac[i-1]*i%mod;
for(int i=1;i<=k;i++)
{
for(int t=0;t<2;t++)
{
for(int j=i;j<=n;j+=k)
{
tot++;
if(i!=j) vis[tot]=1;
}
}
}
dp[0][0][0]=1;
for(int i=1;i<=(n<<1);i++)
{
for(int j=0;j<=n;j++)
{
dp[i][j][0]=(dp[i-1][j][0]+dp[i-1][j][1])%mod;
if(vis[i]&&j) dp[i][j][1]=dp[i-1][j-1][0];
}
}
ll ans=0;
for(int i=0;i<=n;i++)
{
if(i&1) ans=(ans-(dp[n<<1][i][0]+dp[n<<1][i][1])*fac[n-i]%mod+mod)%mod;
else ans=(ans+(dp[n<<1][i][0]+dp[n<<1][i][1])*fac[n-i]%mod)%mod;
}
printf("%lld\n",ans);
return 0;
}