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