代ㄚ弟請張貼問題.
在一個8*8的棋盤上,每一行均有一個皇后西洋棋,請問如何排列這些皇后,才能達成每一行或列或對角線上均只有一個皇后存在。
提示:
程式碼:
solution([]).
solution([X/Y|Others]):-
solution( 1 ),member(Y,[1,2,3,4,5,6,7,8]),noattack(X/Y, 2 ).
noattack( 3 ,[]).
noattack(X/Y,[X1/Y1|Others]:-Y=\=Y1,Y1-Y=\=X1-X,Y1-Y=\=X-X1,noattack(X/Y, 4 ).
求解打solution([1/Y1,2/Y2,3/Y3,4/Y4,5/Y5,6/Y6,7/Y7,8/Y8]).
在一個8*8的棋盤上,每一行均有一個皇后西洋棋,請問如何排列這些皇后,才能達成每一行或列或對角線上均只有一個皇后存在。
提示:
程式碼:
solution([]).
solution([X/Y|Others]):-
solution( 1 ),member(Y,[1,2,3,4,5,6,7,8]),noattack(X/Y, 2 ).
noattack( 3 ,[]).
noattack(X/Y,[X1/Y1|Others]:-Y=\=Y1,Y1-Y=\=X1-X,Y1-Y=\=X-X1,noattack(X/Y, 4 ).
求解打solution([1/Y1,2/Y2,3/Y3,4/Y4,5/Y5,6/Y6,7/Y7,8/Y8]).
_________________________
天步占星
天步占星
前一個議題
索引