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;}
gastropner
- 4.5k
- 1
- 17
- 20