%% Author: Lucie Zolta
%% Date: 30.3.2010

%% Dlazdeni mam ohodnocenou sachovnici 3x3 a mam na ni najit tvary a,b,c, které budou mit soucet hodnot mensi nez 6 
%% [1,1] [1,2] [1,3]   a: #  b: #    c: # # #
%% [2,1] [2,2] [2,3]      #     # #       
%% [3,1] [3,2] [3,3]      #
%%

%%p([1,1],[1,2],[1,3],[2,1],[2,2],[2,3],[3,1],[3,2],[3,3]).
p([1,1],2).
p([1,2],3).
p([1,3],4).
p([2,1],1).
p([2,2],1).
p([2,3],1).
p([3,1],1).
p([3,2],1).
p([3,3],1).

o(a,[X1,Y1],[X2,Y2],[X3,Y3]):- Y1 is Y2, Y1 is Y2, Y2 is Y3, X2 is X1+1, X3 is X2+1.
o(b,[X1,Y1],[X2,Y2],[X3,Y3]):- Y2 is Y1, X2 is X1+1, X3 is X2, Y3 is Y2 +1.
o(b,[X1,Y1],[X2,Y2],[X3,Y3]):- X1 is X2, X1 is X3, X2 is X3, Y2 is Y1+1, Y3 is Y2+1.

%% hledej (Jmeno_objektu, Souradnice1,Souradnice2,Souradnice3,Cena)
hledej(J,S1,S2,S3,Cena):-p(S1,C1),p(S2,C2),p(S3,C3),o(J,S1,S2,S3),Cena is C1+C2+C3.

hledej_stejne(J,S1,S2,S3):-p(S1,C1),p(S2,C2),p(S3,C3),o(J,S1,S2,S3),C1 is C2, C2 is C3, C1 is C3.


%%dlazdi:- P(X),vydlazdi(X,Y),vypis(T).
%%vydlazdi ([],[]).
%%vydlazdi(X, [[Jmeno,P1,P2,P3]|Z]):- member (P1,X),member (P2,X), member (P3,X), o(Jmeno, P1, P2, P3), rozdil(X,[P1,P2,P3],X1), vydlazdi(X1,Z).

%%vypis(Y):- member(X1,Y), member([1,1],X1), member(X2,Y),member([1,2],X2), member(X3,Y),member([1,3],X3),
%%           X1=[01,-,-,-],X2=[02,-,-,-],X3=[03,-,-,-],nl,write(01),write(02),write(03),nl,
%%           member(X4,Y), member([2,1],X4), member(X5,Y),member([2,2],X5), member(X6,Y),member([2,3],X6),
%%           X1=[04,-,-,-],X2=[05,-,-,-],X3=[06,-,-,-],nl,write(04),write(05),write(06),nl,
%%           member(X7,Y), member([3,1],X7), member(X8,Y),member([3,2],X8), member(X9,Y),member([2,3],X9),
%%           X1=[07,-,-,-],X2=[08,-,-,-],X3=[09,-,-,-],nl,write(07),write(08),write(09),nl,

%dlazdi(A,B,C,D,E,F,G,H,I)