%procuraPecasLinha(+Linha,+NumPecas,+Xi,Yi,-Xo,-Yo,-Num).

tabuleiro([[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0],
	[0,0,0,0,0,0,51,7,50,7,54,7,50,7,53,7,50,0,0,0,0,0,0],
	[0,0,0,0,0,50,7,40,7,40,7,40,7,40,7,40,7,54,0,0,0,0,0],
	[0,0,0,0,54,7,40,7,30,7,30,7,30,7,30,7,40,7,50,0,0,0,0],
	[0,0,0,50,7,40,7,30,7,20,7,20,7,20,7,30,7,40,7,50,0,0,0],
	[0,0,53,7,40,7,30,7,20,7,10,7,10,7,20,7,30,7,40,7,53,0,0],
	[0,50,7,40,7,30,7,20,7,10,7,6,7,10,7,20,7,30,7,40,7,50,0],
	[0,0,54,7,40,7,30,7,20,7,10,7,10,7,20,7,30,7,40,7,54,0,0],
	[0,0,0,50,7,40,7,30,7,20,7,20,7,20,7,30,7,40,7,50,0,0,0],
	[0,0,0,0,50,7,40,7,30,7,30,7,30,7,30,7,40,7,53,0,0,0,0],
	[0,0,0,0,0,53,7,40,7,40,7,40,7,40,7,40,7,50,0,0,0,0,0],
	[0,0,0,0,0,0,50,7,54,7,50,7,53,7,50,7,53,0,0,0,0,0,0],
	[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0]]).

validMod(2).
validMod(4).

procuraPecasLinha([Peca|_],0,Xi,Yi,Xi,Yi,0) :-
Mod is (Peca mod 10),
validMod(Mod).

procuraPecasLinha([Peca|E],NumPecas,Xi,Yi,Xf,Yf,Num) :-
Mod is (Peca mod 10),
validMod(Mod),
N is NumPecas-1,
X1 is Xi+1,
procuraPecasLinha(E,N,X1,Yi,Xf,Yf,Num).

procuraPecasLinha([_|E],NumPecas,Xi,Yi,Xf,Yf,Num) :-
X1 is Xi+1,
procuraPecasLinha(E,NumPecas,X1,Yi,Xf,Yf,Num).

procuraPecasLinha([Peca|[]],NumPecas,Xi,Yi,Xf,Yf,Num) :-
Mod is (Peca mod 10),
validMod(Mod),
Num is (NumPecas-1).

procuraPecasLinha([_|[]],NumPecas,_,_,-1,-1,NumPecas).

%procuraPecasAI(+Tabuleiro,+NumPecas,+Yi,-Xo,-Yo).


procuraPecasAI([L|_],NumPecas,Yi,Xf,Yf) :-
procuraPecasLinha(L,NumPecas,0,Yi,Xf,Yf,0),
Xf>=0,
Yf>=0.

procuraPecasAI([L|Ls],NumPecas,Yi,Xf,Yf) :-
procuraPecasLinha(L,NumPecas,0,Yi,_,_,N),
Y1 is Yi+1,
procuraPecasAI(Ls,N,Y1,Xf,Yf).