C (gcc), 125(削除) 125 (削除ここまで) 123 bytes
Thanks to ceilingcat for -2 bytes.
f(L,n)char**L;int**L;{int i,l,c,F=strlen(*L),s=-F;for(l=i=0;i<n;l=c)c
=strlen(L[i++]),s+=c-l;s=n>1?s||F<2?abs~abs(s)^n-1+n?0:3:n^F?2:1:0;}
C (gcc), 125 bytes
f(L,n)char**L;{int i,l,c,F=strlen(*L),s=-F;for(l=i=0;i<n;l=c)c
=strlen(L[i++]),s+=c-l;s=n>1?s||F<2?abs(s)^n-1?0:3:n^F?2:1:0;}
C (gcc), (削除) 125 (削除ここまで) 123 bytes
Thanks to ceilingcat for -2 bytes.
f(L,n)int**L;{int i,l,c,F=strlen(*L),s=-F;for(l=i=0;i<n;l=c)c
=strlen(L[i++]),s+=c-l;s=n>1?s||F<2?~abs(s)+n?0:3:n^F?2:1:0;}
C (gcc), 125 bytes
f(L,n)char**L;{int i,l,c,F=strlen(*L),s=-F;for(l=i=0;i<n;l=c)c
=strlen(L[i++]),s+=c-l;s=n>1?s||F<2?abs(s)^n-1?0:3:n^F?2:1:0;}