问题 I have to make a program that calculates the magic matrix, I have made my code and it works but my permute is very slow. I need one that is faster someone can help me Please This is the code: diabolico([A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P]) :- permutar([1,14,3,16,5,12,13,15,9,10,11,6,7,2,8,4],[A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P]), A+B+C+D=:=34, E+F+G+H=:=34, I+J+K+L=:=34, M+N+O+P=:=34, A+E+I+M=:=34, B+F+J+N=:=34, C+G+K+O=:=34, D+H+L+P=:=34, M+B+G+L=:=34, I+N+C+H=:=34, E+J+O+D=:=34, A+F+K+P=:=34, P