卢卡斯定理
题目中说到\(p\)是质数。
而此时要求组合数向质数取模的结果，就可以用卢卡斯定理：
\[C_x^y=C_{x\ div\ p}^{y\ div\ p}\cdot C_{x\ mod\ p}^{y\ mod\ p}\]
也就是说，我们可以把\(x\)和\(y\)转化成两个\(p\)进制数，然后每一位分别求组合数后再乘起来。
所以问题来了，什么时候一个组合数的值模\(p\)为\(0\)？
由于它是质数，所以对于一个组合数\(C_a^b\)，当且仅当\(a<b\)时它的值才会为\(0\)。
也就是说，对于两个数\(x,y\)，只要\(y\)在\(p\)进制下有一位的值比\(x\)这一位大，\(C_x^y=0\)。
高维前缀和
考虑先容斥。
我们用总方案数（\(n^2\)）减去组合数不为\(0\)的组数，就是答案。
而\(C_x^y\)不为\(0\)，当且仅当\(y\)在\(p\)进制下每一位的值都小于等于\(x\)这一位。
是不是想到了高维偏序。。。
然后，这道题就变成裸的高维前缀和了。
如果你不知道高维前缀和，可以去看看我的这篇博客：浅谈高维前缀和。
代码
#include<bits/stdc++.h>
#define Tp template<typename Ty>
#define Ts template<typename Ty,typename... Ar>
#define Reg register
#define RI Reg int
#define Con const
#define CI Con int&
#define I inline
#define W while
#define N 1000000
#define LL long long
#define Qinv(x) Qpow(x,X-2)
using namespace std;
int n,X,a[N+5],s[N+5];
class FastIO
{
private:
#define FS 100000
#define tc() (A==B&&(B=(A=FI)+fread(FI,1,FS,stdin),A==B)?EOF:*A++)
#define tn (x<<3)+(x<<1)
#define D isdigit(c=tc())
char c,*A,*B,FI[FS];
public:
I FastIO() {A=B=FI;}
Tp I void read(Ty& x) {x=0;W(!D);W(x=tn+(c&15),D);}
}F;
int main()
{
freopen("binom.in","r",stdin),freopen("binom.out","w",stdout);
RI i;LL p,ans=0;for(F.read(n),F.read(X),i=1;i<=n;++i) F.read(a[i]),++s[a[i]];//读入
for(p=1;p<=N;p*=X) for(i=0;i<=N;++i) (i/p)%X&&(s[i]+=s[i-p]);//高维前缀和
for(i=1;i<=n;++i) ans+=n-s[a[i]];return printf("%lld",ans),0;//容斥求答案
}