map$$_+=$-=-$$_+abs,@$_=glob<>for a..c;print+($==($c+$b-1)/$b)+($===!grep$c==$_,@b)