($$_)=@$_=sort{$b-$a}<>=~/\d+/gfor a..c;print+($==($c+$b-1)/$b)+($===!grep$c==$_,@b)