error in Prolog code - undefined procedure: unique/1

251 views Asked by At

%three variants of actions. I have 3 animals and it can drive on plane, car or miss the %step. I know, that on the first step monkey ride on plane, wolf ride on car. On the second %step wolf ride on plane. We need to know accordance that remain. And each animal ride on %each vehicle only on time

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

%I declare passenger iside my function solve

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.
1

There are 1 answers

2
false On

Probably unique/1 is all different:

unique([]).
unique([E|Es]) :-
   maplist(dif(E), Es),
   unique(Es).