Mathematica代码
较简洁
Det/@N@Range@9~Permutations~{9}~ArrayReshape~{9!,3,3}//Max较高效
Max@Table[Evaluate@Det@Quiet@Array[i[[3#+#2-3]]&,{3,3}],{i,Range@9~Permutations~{9}}]