如何在Prolog中围绕其中心旋转4 x 4矩阵?在4 x 4矩阵的情况下,我可以简单地重新排列元素,但是对于像N x N这样的一般情况,该如何做呢?
您想要的不是完全矩阵转置...而是!
:-use_module(library(clpfd))。 matrix_rotated(XSS,ZSS): -转置(XSS,YSS), MAPLIST(反向,YSS,ZSS)。
查询样例:
α-matrix_rotated([[ a1,a2,a3,a4 ], [b1,b2,b3,b4], [c1,c2,c3,c4]],Xss)。 Xss = [[c1,b1,a1 ], [c2,b2,a2 ], [c3,b3,a3 ], [c4,b4,a4 ]。
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句