题目链接

没有\(D\)的限制怎么做？"最小"我们可以想到最小割，把同一纵轴上的点串起来，分别连到S,T，最小割就是答案。(在这把点权放到前一条边上)
有限制，即如果要割点\(i\)，对于相邻纵轴只能去割\([i-D,i+D]\)。
用INF边限制住这个区间，即由\(i\)向\(i-D\)连，由\(i+D\)向\(i\)连。因为关系是双向的，只连一条就行了。

重新复习了下：x+D向另一行的x点连边，是表示，如果选了x，就不能选择另一行x+D右边的数了。
而且容易发现只连一条x+D到x的就够了（不需要x,x-D之间的）。

注意"割"是指这条边流量等于它，连INF边后选择不合法的边一定不会成为割，会通过INF边再流入/出。(理解为只割不合法边S,T仍连通也可以？反正就是我朝了)

//7036kb    832ms
#include <cstdio>
#include <cctype>
#include <algorithm>
//#define gc() getchar()
#define gc() (SS==TT&&(TT=(SS=IN)+fread(IN,1,MAXIN,stdin),SS==TT)?EOF:*SS++)
#define MAXIN 200000
const int N=70005,M=N<<2;
const int way[5]={1,0,-1,0,1},INF=0x3f3f3f3f;int P,Q,R,D,src,des,Enum,cur[N],H[N],to[M],nxt[M],fr[M],cap[M],pre[N],num[N],lev[N],que[N];
char IN[MAXIN],*SS=IN,*TT=IN;inline int read()
{int now=0,f=1;register char c=gc();for(;!isdigit(c);c=gc()) if(c=='-') f=-1;for(;isdigit(c);now=now*10+c-'0',c=gc());return now*f;
}
inline void AddEdge(int u,int v,int w)
{to[++Enum]=v, fr[Enum]=u, nxt[Enum]=H[u], cap[Enum]=w, H[u]=Enum;to[++Enum]=u, fr[Enum]=v, nxt[Enum]=H[v], cap[Enum]=0, H[v]=Enum;
}
inline int ID(int x,int y,int z){return z ? (z-1)*P*Q+(x-1)*Q+y : 0;
}
bool BFS()
{for(int i=src; i<des; ++i) lev[i]=des+1;lev[des]=0, que[0]=des; int h=0,t=1;while(h<t){int x=que[h++];for(int i=H[x]; i; i=nxt[i])if(lev[to[i]]==des+1 && cap[i^1])lev[to[i]]=lev[x]+1, que[t++]=to[i];}return lev[src]<=des;
}
int Augment()
{int mn=INF;for(int i=des; i!=src; i=fr[pre[i]]) mn=std::min(mn,cap[pre[i]]);for(int i=des; i!=src; i=fr[pre[i]]) cap[pre[i]]-=mn, cap[pre[i]^1]+=mn;return mn;
}
int ISAP()
{if(!BFS()) return 0;for(int i=src; i<=des; ++i) ++num[lev[i]],cur[i]=H[i];int res=0,x=src;while(lev[src]<=des){if(x==des) x=src,res+=Augment();bool can=0;for(int i=cur[x]; i; i=nxt[i])if(lev[to[i]]==lev[x]-1 && cap[i]){can=1, cur[x]=i, pre[x=to[i]]=i;break;}if(!can){int mn=des;for(int i=H[x]; i; i=nxt[i])if(cap[i]) mn=std::min(mn,lev[to[i]]);if(!--num[lev[x]]) break;++num[lev[x]=mn+1], cur[x]=H[x];if(x!=src) x=fr[pre[x]];}}return res;
}int main()
{P=read(),Q=read(),R=read(),D=read(),Enum=1,src=0,des=P*Q*R+1;for(int p=1; p<=R; ++p)for(int i=1; i<=P; ++i)for(int j=1; j<=Q; ++j){AddEdge(ID(i,j,p-1),ID(i,j,p),read());if(p>D)for(int xn,yn,k=0; k<4; ++k)if((xn=i+way[k]) && (yn=j+way[k+1]) && xn<=P && yn<=Q)AddEdge(ID(i,j,p),ID(xn,yn,p-D),INF);}for(int i=1; i<=P; ++i)for(int j=1; j<=Q; ++j) AddEdge(ID(i,j,R),des,INF);printf("%d",ISAP());return 0;
}