-1

%三种动作变体。我有 3 只动物,它可以驾驶飞机、汽车或错过 %step。我知道,第一步猴子坐飞机,狼坐汽车。在第二个 %step 狼乘坐飞机。我们需要知道剩余的一致性。并且每只动物只准时乘坐 %每辆车

action(plane).
action(car).
action(shift).

%我声明乘客在我的函数解决之外

solve([passenger(monkey, [X1,X2,X3]), passenger(wolf, [Y1, Y2,Y3]),
passenger(hippo, [Z1, Z2, Z3])]):-
   action(X1), action(Y1), action(Z1), unique([X1, Y1, Z1]),
   action(X2), action(Y2), action(Z2), unique([X2, Y2, Z2]),
   action(X3), action(Y3), action(Z3), unique([X3, Y3, Z3]),

   unique([X1, X2, X3]), unique([Y1, Y2, Y3]), unique([Z1, Z2, Z3]),

   X1 = plane, Y1 = car,
   Y2 = plane.
4

1 回答 1

2

可能unique/1都是不同的:

unique([]).
unique([E|Es]) :-
   maplist(dif(E), Es),
   unique(Es).
于 2014-11-26T22:46:45.487 回答