var  n,m,i,j,t,s:longint;
     a:array[0..100,0..100]of longint;

     l:boolean;
procedure done(dep:longint);
var k:longint;
begin
     for k:=1 to n do
         if a[dep,k]>0 then begin
            inc(s);
            dec(a[dep,k]);
            dec(a[dep,0]);
            done(k);
            end;
end;
begin
     read(n);
     read(m);
     for i:=1 to n do
         for j:=1 to m do
         begin
              read(t);
              if t<>I then begin inc(a[i,t]);inc(a[i,0]);end;

              end;

     l:=false;
     for i:=1 to n do

          if a[i,0]>0 then begin
             for j:=1 to n do
                 if a[i,j]>0 then begin
                    inc(s);
                    dec(a[i,j]);
                    dec(a[i,0]);
                    done(j);
                    end;
                    inc(s);
                    l:=true;
                    end;
     if l then s:=s-1;
     writeln(s);
end.

> var  n,m,i,j,t,s:longint;
>      a:array[0..100,0..100]of longint;
>
>      l:boolean;
> procedure done(dep:longint);
> var k:longint;
> begin
>      for k:=1 to n do
>          if a[dep,k]>0 then begin
>             inc(s);
>             dec(a[dep,k]);
>             dec(a[dep,0]);
>             done(k);
>             end;
> end;
> begin
>      read(n);
>      read(m);
>      for i:=1 to n do
>          for j:=1 to m do
>          begin
>               read(t);
>               if t<>I then begin inc(a[i,t]);inc(a[i,0]);end;
>
>               end;
>
>      l:=false;
>      for i:=1 to n do
>
>           if a[i,0]>0 then begin
>              for j:=1 to n do
>                  if a[i,j]>0 then begin
>                     inc(s);
>                     dec(a[i,j]);
>                     dec(a[i,0]);
>                     done(j);
>                     end;
>                     inc(s);
>                     l:=true;
>                     end;
>      if l then s:=s-1;
>      writeln(s);
> end.
>
>
>
>