checkPlayablePositions([],_,[],_).

checkPlayablePositions([H|T], X1, [Pos|L], Pos):-
    validaAdjacencia(Pos,[H|T],X1),
    Pos1 is Pos + 1.
    checkPlayablePositions(T,X1,L,Pos1)

checkPlayablePositions([H|T], X1, L,Pos):-
    Pos1 is Pos + 1.
    checkPlayablePositions(T, X1, L, Pos).