for$i(@N=0..map$S[$_]=<>,0..<>){ for$j(@N){ $w[$i][$j]=$\=1e9 } } $w[$`][$&]=$w[$&][$`]=$'*/ .* /for<>; for$m(@N){ for$i(@N){ for$j(@N){ $w[$i][$j]-=$-=$w[$i][$j]-$w[$i][$m]-$w[$m][$j] } } } for$x(@@=1..@S-3){ for$y(@@){ if($x-$y){ $\-=$-=$\-$S[$x]-$S[$y]-$w[0][$x]-$w[$x][$y]-$w[$y][@S-2] } } } print