$n=<>; @c=map[glob],<>; { $mm=3**$n-1; for$m(0..$mm){ for$i(0..$n-1){ $v=2e9; if($m/3**$i%3){ $mi=$m-3**$i; for$j(0..$n-1){ if($j-$i){ $w=$d[$mi][$j]+$c[$i][$j]; $v=$v>$w?$w:$v; } } if($m==3**$i|$m==2*3**$i){ $v=0; } } $d[$m][$i]=$v; } } { $v=2e9; for$i(0..$n-1){ if($v>$d[$mm][$i]){ $v=$d[$mm][$i]; } } printf("%d",$v); } }