1 2 3 4 5 6 7 8
| valor(P,Q,1):-P=Q.
valor(P,Q,0):-P\==Q.
fila1(V,W,X,Y,Z):-valor(V,'G',N11),valor(W,'A',N21),valor(X,'R',N31),valor(Y,'R',N41),valor(Z,'A',N51),1 is N11+N21+N31+N41+N51.
fila2(V,W,X,Y,Z):-valor(V,'T',N12),valor(W,'R',N22),valor(X,'A',N32),valor(Y,'T',N42),valor(Z,'A',N52),2 is N12+N22+N32+N42+N52.
fila3(V,W,X,Y,Z):-valor(V,'F',N13),valor(W,'R',N23),valor(X,'U',N33),valor(Y,'T',N43),valor(Z,'O',N53),3 is N13+N23+N33+N43+N53.
fila4(V,W,X,Y,Z):-valor(V,'G',N14),valor(W,'A',N24),valor(X,'I',N34),valor(Y,'T',N44),valor(Z,'A',N54),3 is N14+N24+N34+N44+N54.
fila5(V,W,X,Y,Z):-valor(V,'G',N15),valor(W,'R',N25),valor(X,'U',N35),valor(Y,'T',N45),valor(Z,'A',N55),3 is N15+N25+N35+N45+N55.
oculta(V,W,X,Y,Z):-fila1(V,W,X,Y,Z),fila2(V,W,X,Y,Z),fila3(V,W,X,Y,Z),fila4(V,W,X,Y,Z),fila5(V,W,X,Y,Z). |
Partager