Вариант 2 (8)
notbeat(_,[],_).
notbeat(Y,[Y1|ListY],DistX):-
Y1-Y =\= DistX,Y-Y1 =\= DistX,Dist1 is DistX+1,notbeat(Y,ListY,Dist1).
del(A,[A|L],L).
del(A,[B|L],[B|L1]):-del(A,L,L1).
perm([],[]).
perm(L,P):-del(X,L,L1),perm(L1,P).
Previous slide
Next slide
Back to first slide
View graphic version