faktid
kass(miisu).
kass(liisu).
emane(miisu).

isane(X):-
  \+emane(X).


laps(toomas, jaagup).
laps(paula, jaagup).

laps(jaagup, pille).
laps(jaagup, vello).

laps(pille, aleksander).
laps(viivi, aleksander).

lapselaps(A, B):-
    laps(A, X), laps(X, B).

ove(A, B):-
    laps(A, X), laps(B, X),
    A\=B.

tadionu(A, B):-
    laps(B, X), ove(X, A).
%küsige tädid ja onud 
%
%küsige jaagupi vanemad
%küsige pille lapsed



küsimused

kass(X).
X = miisu
X = liisu
kass(X), emane(X).
X = miisu
false
kass(X), isane(X).
Syntax error: Operator priority clash
procedure `isane(A)' does not exist
kass(X), isane(X).
X = liisu


ove(toomas, X)
X = paula
ove(Y, X)
X = paula,
Y = toomas
X = toomas,
Y = paula
X = viivi,
Y = pille
X = pille,
Y = viivi
tadionu(Y, X)
X = jaagup,
Y = viivi
false

_______________

Alice ja lõvi ülesanne

* defineeri paaridena, milline nädalapäev teisele järgneb

* kuva kolmapäevale järgnev nädalapäev
* kuva kolmapäevale eelnev nädalapäev

* küsi kõik olemasolevad nädalapäevad

* koosta funktsioon üleeelmise nädalapäeva kuvamiseks, katseta 
* kasuta seda funktsiooni ka ülejärgmise nädalapäeva kuvamiseks 

* märgi üles päevad, mil lõvi valetab
* kuva päevad, millal lõvi valetab
* koosta funktsioon päevade leidmiseks, mil lõvi räägib tõtt

* Kuva päevad, kus lõvi eelmisel päeval rääkis tõtt


homme(esmaspäev, pühapäev).
homme(teisipäev, esmaspäev).
homme(kolmapäev, teisipäev).
homme(neljapäev, kolmapäev).
homme(reede, neljapäev).
homme(laupäev, reede).
homme(pühapäev, laupäev).

lõvivaletab(esmaspäev).
lõvivaletab(teisipäev).
lõvivaletab(kolmapäev).

ülehomme(A, B):-
    homme(A, X), homme(X, B).

lõvitõtt(X):-
    homme(X, _), \+lõvivaletab(X).

lõvieiletõtt(X):-
    homme(X, Paev), lõvitõtt(Paev).

lõviütlebeilevaletab(X):-
    lõvitõtt(X), homme(X, Y), lõvivaletab(Y).

lõviütlebeilevaletab(X):-
    lõvivaletab(X), homme(X, Y), lõvitõtt(Y).


puhkepäev(X):-
    homme(X, reede).

puhkepäev(X):-
    homme(esmaspäev, X).



lõvitõtt(X).
X = neljapäev
X = reede
X = laupäev
X = pühapäev
lõvitõtt(reede).
1true
lõvitõtt(esmaspäev).
false
lõvitõtt(kala).
false
lõvieiletõtt(X).
X = esmaspäev
X = reede
X = laupäev
X = pühapäev
puhkepäev(X).
X = laupäev
puhkepäev(X).
X = laupäev
X = pühapäev
puhkepäev(X).
X = laupäev
X = pühapäev
lõviütlebeilevaletab(X).
X = neljapäev
lõviütlebeilevaletab(X).
X = neljapäev
X = esmaspäev


varv(sinine).
varv(kollane).
varv(punane).

piir(Riik1, Riik2):-
    varv(Riik1), varv(Riik2),
      Riik1\=Riik2.

otsing1():-
    piir(Eesti, Läti), 
    piir(Läti, Leedu),
      write(Eesti), write("-Eesti "),  write(Läti),  write("-Läti "), 
      write(Leedu), write("-Leedu "),!.

%Uurige Euroopa kaarti. Otsige kümmekond riiki koos kokkupuutumistega
%Laske riigid võimalikult väheste värvidega värvida


sõbrad(Isikud):-
    Isikud=[
       isik(ants, _, _, _),
       isik(jüri, _, _, _),
       isik(mati, _, _, _)
    ],
    member(isik(ants, punane, _, _), Isikud),
    member(isik(jüri, _, korvpall, _), Isikud),
    member(isik(_, _, jalgpall, koer), Isikud),
    member(isik(_, roheline, _, kanaarilind), Isikud),
    member(isik(_, sinine, _, kana), Isikud)

    .
    
	
sõbrad(L), member(isik(X, _, tennis, _), L).

%Koostage sarnane piirangutega ülesanne