#include<bits/stdc++.h>

using namespace std;

typedef long long LL;

const int N = 100010;
int n,k;
LL A[N];
LL s[N],cnt[N];//cnt计算相同余数的序列的个数总和 
LL res;//计算不相等的余数的个数总和 

int main(){
    scanf("%d %d",&n,&k);

//为什么赋值为1？
//因为我们的思路是找两个序列和a%k和b%k的余数相同的个数
//而我们的前缀和一般是不包含S0这个东西的，因为没有意义，但是这道题有意义
//样例里面前缀和序列%k之后是1 1 0 0 1，两两比较，我们只能找到四个
//为什么少了两个？因为我们不一定需要两个序列，单个序列取余=0也构成K倍区间
//也就是说s3 s4这两个区间是能单独成K倍区间的，而我们的思路是找两个序列比较
//此时，我们就要假设S0=0是有意义的，我们就可以有(s0，s3),(s0,s4)这两个组合
    cnt[0] = 1;
    for(int i = 1; i <= n; i ++){
        scanf("%lld",&A[i]);
        s[i] = s[i - 1] + A[i];
        s[i] = s[i] % k; 
        res += (cnt[s[i]]);
        cnt[s[i]] ++;//记录序列%k不同余数的个数 
        //cnt[s[i]]要在res之后做，因为它是记录总数，如果下面再加回去会重复。 
        /*不能写成
        cnt[s[i]]++;
        res+=(cnt[s[i]]);
        */
        //用笔写字调试一下就知道了 
    }
    //cnt[0] = 1; 
    /*for(int i = 1; i <= n; i ++){
        /*for(int j = i; j <= n; j ++){
            if(s[j] == 0 && j > 0) break;
            if((s[j] - s[i - 1]) % k == 0){
                res ++;
            }
        }
        改成一重循环可以从这里删去。
        这段代码的含义是： 当j固定时，在1-R之间，
                        找到有多少个L，满足([S[右端点] - S[左端点])%k == 0
        从含义上优化代码
        空间换时间 
        */
        //res += (cnt[s[i]]);
    /*我刚开始迷惑为什么不是当cnt[s[i]]>=2的时候才加， 
      现在懂了，因为不一定是两个区间的重叠序列构成K倍区间，
      一个序列本身如果连续和%k=0也构成K倍区间。故所有的都要加上
    */   

    /*10^10>10^8 TLE -> 要改为一重循环*/
    printf("%lld\n",res);
    return 0;
}