https://tunnikavad.weebly.com/prolog.html

https://swish.swi-prolog.org/


lemmik(piret, kass, miisu).
lemmik(piret, papagoi, polyneesia).
lemmik(mati, koer, pontu).
lemmik(mati, kass, tiisu).
lemmik(margus, koer, muri).


Koosta eelpool toodud näidisülesande andmete põhjal päringud, mille abil saad leida:
Pireti lemmikloomad (koos nimedega)
kõik kassiomanikud
kõikide koerade nimed
papagoi omaniku nime


length(L, 3),  nth0(MKoht, L, matemaatika),
 nth0(FKoht, L, fyysika),
 FKoht is MKoht+1.
 
length(L, 3),  nth0(MKoht, L, matemaatika),
 nth0(FKoht, L, fyysika),
 nth0(M2Koht, L, matemaatika),
 M2Koht\=MKoht,
 FKoht is MKoht+1.
 
Ühe Tallinna kooli gümnaasiumiklassil on sel veerandil neljapäeviti 8 tundi, kokku 6 erinevat õppeainet. Füüsikatund on kohe pärast matemaatikat. Kunstiajaloole eelnevad ja järgnevad humanitaarainete tunnid. Vene keel on 2 tundi peale ajalootundi. 3 reaalainete tundi on kõik järjestikku. Keeletunnid on nii koolipäeva algul kui lõpus. Ajalugu algab 4 tundi peale inglise keelt. Mõlemad topelttunnid on tunniplaanis järjestikku. Millises järjekorras neljapäeviti need tunnid on?

keel(venekeel).
keel(inglisekeel). 
 
 length(L, 8),  nth0(M, L, matemaatika),
 nth0(F, L, fyysika), nth0(M2, L, matemaatika),
 nth0(A, L, ajalugu), nth0(I, L, inglisekeel), nth0(V, L, venekeel),
 M2\=M,
 F is M+1, A is I+4, V is A+2,
  (M2 is M-1; M2 is F+1), nth0(7, L, X), keel(X).