prolog语言解决八皇后问题
4星 · 超过85%的资源 需积分: 34 192 浏览量
2012-04-04
19:19:08
上传
评论 2
收藏 15KB DOCX 举报 
Soluon #1:
solution([]).
solution([X/Y|Others]) :-
solution(Others),
member(Y, [1,2,3,4,5,6,7,8]),
noattack(X/Y, Others).
noattack(_,[]).
noattack(X/Y,[X1/Y1|Others]) :-
Y =\= Y1,
Y1 - Y =\= X1 - X,
Y1 - Y =\= X - X1,
noattack(X/Y,Others).
member(Item,[Item|Rest]).
member(Item,[First|Rest]) :-
member(Item,Rest).
template([1/Y1,2/Y2,3/Y3,4/Y4,5/Y5,6/Y6,7/Y7,8/Y8]).
Solution #2:
solution(Queens) :-
permutation([1,2,3,4,5,6,7,8], Queens) ,
safe(Queens).
permutation([],[]).
permutation([Head|Tail],PermList) :-
permutation(Tail,PermTail) ,
del(Head,PermList,PermTail).
del(Item,[Item|List],List).
del(Item,[First|List],[ First|List1]) :-
del(Item,List,List1).
safe([]).
safe([Queen|Others]) :-
safe(Others),
资源评论
xiaoxiongxuhh2018-11-14感觉还可以哈- qq_390787492017-12-16还不错的资源
lraul772013-05-08资源还可以
