($x,$b,$c)=sort{$a-$b}glob<>; $b-=$x; $c-=$x; while(1){ if($b<=$c){ if($b>=1&&$c>=3){ ++$x; --$b; $c-=3 }else{ last } }else{ if($b>=3&&$c>=1){ ++$x; --$c; $b-=3 }else{ last } } } print$x+($b/5|0)+($c/5|0)