{
TASK:matrix
LANG: PASCAL
}
program MATRIX;
  const max=100;max2=1001;
  var A:array[1..max,1..max]of Integer;
        i,j,N,M,Br,k,l : Integer;
      S:array[1..max2] of Integer;
  begin
    readln(N,M);
    Br:=N;
    for i:=1 to N do
      begin
        for j :=1 to M do
          read(a[i,j]);
        readln;
      end;
    S[1]:=0;
    for i:=1 to N do
      begin
        for j :=1 to M do
          S[i]:=S[i]+a[i,j];
        S[i+1]:=0;
      end;
    for i:=1 to N-1 do
      for j:=i+1 to N do
        if S[i]=S[j] then
          dec(Br);
    writeln(Br);
  end.