const
    key=99999989;
var
    n,m,i,j:longint;
    k:int64;
    ans:extended;
    a,c,f:array[0..100010] of int64;
    b:array[0..100000000] of longint;
begin
    readln(n,m);j:=1;
    for i:=1 to n do
        begin
            read(a[j]);
            c[j]:=i;
            f[i]:=f[i-1]+a[j];
            k:=f[i] mod m mod key;
            if b[k]<>0 then dec(j);
            inc(b[k]);
            inc(j);
        end;
    for i:=1 to j-1 do
        begin 
            k:=f[c[i]] mod m mod key;
            if k=0 then ans:=ans+b[k];
            ans:=ans+b[k]*(b[k]-1) div 2;
        end;
    writeln(ans:0:0);
end.