/**
- Solution for: https://m...content-available-to-author-only...j.com/problem/62
- Programming language: C++ 11/14/17/Themis
- Cagtertory: Prefix-sum, count array, map (STL)
**/
#include <bits/stdc++.h>
using namespace std;
#define fast ios_base::sync_with_stdio(false); cin.tie(NULL); cout.tie(NULL)
#define mofile(s) freopen(s,"r",stdin)
#define outfile(s) freopen(s,"w",stdout)
#define ll long long
#define ii pair<int,int>
#define iii pair<int,ii>
#define fi first
#define se second
#define tf bool
#define ST stack
#define DQ deque
#define Q queue
#define S string
#define Ma map
#define UM unordered_map
#define SE set
#define str(x) to_string(x)
#define all(a) (a).begin(),(a).end()
#define FOR(i,l,r,d) for(int i=l;i<=r;i+=d)
#define FOD(i,l,r,d) for(int i=r;i>=l;i-=d)
#define xuong cout<<"\n"
#define debug(x) cout<<(x)<<" "
#define ppcnt(x) __builtin_popcountll(x)
#define parity(x) __builtin_parityll(x)
#define lead0(x) __builtin_clzll(x)
#define LOG2 __lg(x)
#define tr0(x) __builtin_ctzll(x)
#define fiset(x) __builtin_ffsll(x)
#define MASK(k) (1LL<<(k))
#define BIT(x,k) ((x)>>(k)&1)
#define pb push_back
#define tron(x) setprecision(x)
#define het return 0
#define base_ 1000000000
const int maxn=1e6+5;
const ll tle=2e8;
const int base=31;
string bcc="abcdefghijklmnopqrstuvwxyz";
int dx[]={-1,0,1,0};
int dy[]={0,1,0,-1};
bool sang[10000005];
ll pref[1005][1005],mt[1005][1005];
void sieve(){
for(int i=1;i<=10000000;++i) sang[i]=1;
sang[0]=sang[1]=0;
for(int i=2;i*i<=10000000;++i){
if(sang[i]){
for(int j=i*i;j<=10000000;j+=i) sang[j]=0;
}
}
}
void lis(){
vector<int>t;
vector<int>a;
int n; cin>>n;
for(int i=1;i<=n;++i){
int ai; cin>>ai;
a.pb(ai);
}
for(int x:a){
auto it=lower_bound(all(t),x);
if(it==t.end()) t.pb(x);
else *it=x;
}
}
void pfs2d(){
int n,m,k; cin>>n>>k; m=n;
for(int i=1;i<=n;++i){
for(int j=1;j<=m;++j) cin>>mt[i][j];
}
for(int i=1;i<=n;++i){
for(int j=1;j<=m;++j) pref[i][j]=mt[i][j]+pref[i-1][j]+pref[i][j-1]-pref[i-1][j-1];
}
}
ll qu2d(int x1,int y1,int x2,int y2){
return pref[x2][y2]-pref[x1-1][y2]-pref[x2][y1-1]+pref[x1-1][y1-1];
}
void open(){
if(fopen("tongARTKEY.INP","r")){
mofile("tongARTKEY.INP");
outfile("tongARTKEY.OUT");
}
}
ll a[maxn],pfs[maxn];
int main(){
fast;
int n,d; cin>>n>>d;
for(int i=1;i<=n;++i) cin>>a[i];
pfs[0]=0;
for(int i=1;i<=n;++i) pfs[i]=pfs[i-1]+a[i];
map<ll,ll>cnt;
ll kq=0;
for(int i=1;i<=n;++i){
++cnt[(pfs[i-1]%d+d)%d];
kq+=cnt[(pfs[i]%d+d)%d];
}
cout<<kq<<"\n";
het;
}
LyoqCgktIFNvbHV0aW9uIGZvcjogaHR0cHM6Ly9tLi4uY29udGVudC1hdmFpbGFibGUtdG8tYXV0aG9yLW9ubHkuLi5qLmNvbS9wcm9ibGVtLzYyCgktIFByb2dyYW1taW5nIGxhbmd1YWdlOiBDKysgMTEvMTQvMTcvVGhlbWlzCgktIENhZ3RlcnRvcnk6IFByZWZpeC1zdW0sIGNvdW50IGFycmF5LCBtYXAgKFNUTCkKKiovCiNpbmNsdWRlIDxiaXRzL3N0ZGMrKy5oPgp1c2luZyBuYW1lc3BhY2Ugc3RkOwojZGVmaW5lIGZhc3QgaW9zX2Jhc2U6OnN5bmNfd2l0aF9zdGRpbyhmYWxzZSk7IGNpbi50aWUoTlVMTCk7IGNvdXQudGllKE5VTEwpCiNkZWZpbmUgbW9maWxlKHMpIGZyZW9wZW4ocywiciIsc3RkaW4pCiNkZWZpbmUgb3V0ZmlsZShzKSBmcmVvcGVuKHMsInciLHN0ZG91dCkKI2RlZmluZSBsbCBsb25nIGxvbmcKI2RlZmluZSBpaSBwYWlyPGludCxpbnQ+CiNkZWZpbmUgaWlpIHBhaXI8aW50LGlpPgojZGVmaW5lIGZpIGZpcnN0CiNkZWZpbmUgc2Ugc2Vjb25kCiNkZWZpbmUgdGYgYm9vbAojZGVmaW5lIFNUIHN0YWNrCiNkZWZpbmUgRFEgZGVxdWUKI2RlZmluZSBRIHF1ZXVlCiNkZWZpbmUgUyBzdHJpbmcKI2RlZmluZSBNYSBtYXAKI2RlZmluZSBVTSB1bm9yZGVyZWRfbWFwCiNkZWZpbmUgU0Ugc2V0CiNkZWZpbmUgc3RyKHgpIHRvX3N0cmluZyh4KQojZGVmaW5lIGFsbChhKSAoYSkuYmVnaW4oKSwoYSkuZW5kKCkKI2RlZmluZSBGT1IoaSxsLHIsZCkgZm9yKGludCBpPWw7aTw9cjtpKz1kKQojZGVmaW5lIEZPRChpLGwscixkKSBmb3IoaW50IGk9cjtpPj1sO2ktPWQpCiNkZWZpbmUgeHVvbmcgY291dDw8IlxuIgojZGVmaW5lIGRlYnVnKHgpIGNvdXQ8PCh4KTw8IiAiCiNkZWZpbmUgcHBjbnQoeCkgX19idWlsdGluX3BvcGNvdW50bGwoeCkKI2RlZmluZSBwYXJpdHkoeCkgX19idWlsdGluX3Bhcml0eWxsKHgpCiNkZWZpbmUgbGVhZDAoeCkgX19idWlsdGluX2NsemxsKHgpCiNkZWZpbmUgTE9HMiBfX2xnKHgpCiNkZWZpbmUgdHIwKHgpIF9fYnVpbHRpbl9jdHpsbCh4KQojZGVmaW5lIGZpc2V0KHgpIF9fYnVpbHRpbl9mZnNsbCh4KQojZGVmaW5lIE1BU0soaykgKDFMTDw8KGspKQojZGVmaW5lIEJJVCh4LGspICgoeCk+PihrKSYxKQojZGVmaW5lIHBiIHB1c2hfYmFjawojZGVmaW5lIHRyb24oeCkgc2V0cHJlY2lzaW9uKHgpCiNkZWZpbmUgaGV0IHJldHVybiAwCiNkZWZpbmUgYmFzZV8gMTAwMDAwMDAwMApjb25zdCBpbnQgbWF4bj0xZTYrNTsKY29uc3QgbGwgdGxlPTJlODsKY29uc3QgaW50IGJhc2U9MzE7CnN0cmluZyBiY2M9ImFiY2RlZmdoaWprbG1ub3BxcnN0dXZ3eHl6IjsKaW50IGR4W109ey0xLDAsMSwwfTsKaW50IGR5W109ezAsMSwwLC0xfTsKYm9vbCBzYW5nWzEwMDAwMDA1XTsKbGwgcHJlZlsxMDA1XVsxMDA1XSxtdFsxMDA1XVsxMDA1XTsKdm9pZCBzaWV2ZSgpewogICAgZm9yKGludCBpPTE7aTw9MTAwMDAwMDA7KytpKSBzYW5nW2ldPTE7CiAgICBzYW5nWzBdPXNhbmdbMV09MDsKICAgIGZvcihpbnQgaT0yO2kqaTw9MTAwMDAwMDA7KytpKXsKICAgICAgICBpZihzYW5nW2ldKXsKICAgICAgICAgICAgZm9yKGludCBqPWkqaTtqPD0xMDAwMDAwMDtqKz1pKSBzYW5nW2pdPTA7CiAgICAgICAgfQogICAgfQp9CnZvaWQgbGlzKCl7CiAgICB2ZWN0b3I8aW50PnQ7CiAgICB2ZWN0b3I8aW50PmE7CiAgICBpbnQgbjsgY2luPj5uOwogICAgZm9yKGludCBpPTE7aTw9bjsrK2kpewogICAgICAgIGludCBhaTsgY2luPj5haTsKICAgICAgICBhLnBiKGFpKTsKICAgIH0KICAgIGZvcihpbnQgeDphKXsKICAgICAgICBhdXRvIGl0PWxvd2VyX2JvdW5kKGFsbCh0KSx4KTsKICAgICAgICBpZihpdD09dC5lbmQoKSkgdC5wYih4KTsKICAgICAgICBlbHNlICppdD14OwogICAgfQp9CnZvaWQgcGZzMmQoKXsKICAgIGludCBuLG0sazsgY2luPj5uPj5rOyBtPW47CiAgICBmb3IoaW50IGk9MTtpPD1uOysraSl7CiAgICAgICAgZm9yKGludCBqPTE7ajw9bTsrK2opIGNpbj4+bXRbaV1bal07CiAgICB9CiAgICBmb3IoaW50IGk9MTtpPD1uOysraSl7CiAgICAgICAgZm9yKGludCBqPTE7ajw9bTsrK2opIHByZWZbaV1bal09bXRbaV1bal0rcHJlZltpLTFdW2pdK3ByZWZbaV1bai0xXS1wcmVmW2ktMV1bai0xXTsKICAgIH0KfQpsbCBxdTJkKGludCB4MSxpbnQgeTEsaW50IHgyLGludCB5Mil7CiAgICByZXR1cm4gcHJlZlt4Ml1beTJdLXByZWZbeDEtMV1beTJdLXByZWZbeDJdW3kxLTFdK3ByZWZbeDEtMV1beTEtMV07Cn0Kdm9pZCBvcGVuKCl7CiAgICBpZihmb3BlbigidG9uZ0FSVEtFWS5JTlAiLCJyIikpewogICAgICAgIG1vZmlsZSgidG9uZ0FSVEtFWS5JTlAiKTsKICAgICAgICBvdXRmaWxlKCJ0b25nQVJUS0VZLk9VVCIpOwogICAgfQp9CmxsIGFbbWF4bl0scGZzW21heG5dOwppbnQgbWFpbigpewogICAgZmFzdDsKICAgIGludCBuLGQ7IGNpbj4+bj4+ZDsKICAgIGZvcihpbnQgaT0xO2k8PW47KytpKSBjaW4+PmFbaV07CiAgICBwZnNbMF09MDsKICAgIGZvcihpbnQgaT0xO2k8PW47KytpKSBwZnNbaV09cGZzW2ktMV0rYVtpXTsKICAgIG1hcDxsbCxsbD5jbnQ7CiAgICBsbCBrcT0wOwogICAgZm9yKGludCBpPTE7aTw9bjsrK2kpewogICAgICAgICsrY250WyhwZnNbaS0xXSVkK2QpJWRdOwogICAgICAgIGtxKz1jbnRbKHBmc1tpXSVkK2QpJWRdOwogICAgfQogICAgY291dDw8a3E8PCJcbiI7CiAgICBoZXQ7Cn0K