Elasid kord 3 sõpra, nende nimed olid Ants, Jüri ja Mati. Ants elas punases majas. Jüri armastas mängida korvpalli. Sinises majas elaval sõbral oli kana. Koeraomanik käis jalpallitrennis. Rohelises majas peeti kanaarilinde. Kes neist sõpradest tennist mängib?
Vihje: koosta andmestik ning kasuta sobilikku päringut.

arvuta1(L, X):-
    length(L, 3),
      member(isik(ants, punane, _, _) , L),
      member(isik(ants, _, korvpall, _) , L),
	  member(isik(X, punane, korvpall, _)).
	  
arvuta3(X):-
    length(L, 3),
      member(isik(ants, punane, _, _) , L),
      member(isik(jyri, _, korvpall, _) , L),
      member(isik(_, sinine, _, kana) , L),
      member(isik(_, roheline, _, kanaarilind) , L),
      member(isik(_, _, jalgpall, koer) , L),
      member(isik(mati, _, _, _) , L),
	  member(isik(X, _, tennis, _), L).

arvuta3(X).




isikunimi --> eesnimi, perekonnanimi.
eesnimi --> [juku].
eesnimi --> [mari].
perekonnanimi --> [tamm].
perekonnanimi --> [kask].

s1 --> [a], s1.
s1 --> [b], s1.
s1 --> [a].
s1 --> [b].

%1) ({S}, {1}, {S → 1S1|1}, S)
%Õpetage grammatika Prologile selgeks
%Kontrollige, kas sõna sobib grammatikasse

s2 --> [1].
s2 --> [1], s2, [1].

%palindroom
s3 --> [a], g, [a].
s3 --> [b], g, [b].
g --> [a].
g --> [b].

s4 --> [a], s4, [a].
s4 --> [b], s4, [b].
s4 --> [a].
s4 --> [b].
s4 --> [].


V=[_, _, _, _], phrase(s4, V).