:-dynamic in/1,			% matches the in/1 percept
	state/1,			% matches the state/1 percept
	zone/3,				% matches the zone/3 percept
	ownId/1.

% A room is a place with exactly one neighbour, i.e., there is only one way to get to and from that place.
room(PlaceID) :- zone(_,PlaceID,Neighbours), length(Neighbours,1).

% Exercise 2.2: insert a definition of the predicate "nextColorInSeq(Color)".