($H,$W)=glob<>;
@_=map[/./g],<>;
$D=inf;
for((map{[$_,-1],[$_,$W]}0..$H-1),map{[-1,$_],[$H,$_]}0..$W-1){
	($Y,$X)=@$_;
	$d=0;
	for$y(0..$H-1){
		for$x(0..$W-1){
			if($_[$y][$x]){
				$d+=sqrt(($Y-$y)**2+($X-$x)**2)
			}
		}
	}
	$D=$d if$d<$D
}
print$D