kor(jani,6).
kor(jozsi,4).
kor(judit,7).
kor(jani,6).
kor(marci,6).
kor(gizi,6).
kor(jeno,3).
kor(mari,5).
kor(jani,6).
kor(gizi,6).
kor(jakab,4).
kor(eva,6).
kor(jani,5).
kor(dezsõ,3).

/*

Próbálja ki - ahol lehet, gépeljen pontosvesszõt (;) a kapott eredmények után:

bagof(Nev, kor(Nev,6),L).
setof(Nev, kor(Nev,6),L).
findall(Nev, kor(Nev,6),L).

bagof(Nev, kor(Nev,2),L).
setof(Nev, kor(Nev,2),L).
findall(Nev, kor(Nev,2),L).

bagof(Nev,kor(Nev,Ev),L).
setof(Nev,kor(Nev,Ev),L).
findall(Nev,kor(Nev,Ev),L).


setof(Nev, kor(Nev,_),L).
findall(Nev, kor(Nev,_),L).


Melyik gyûjti L-be az összes olyan nevet, akihez tartozik életkor? 


Ez eltér az elõzõektõl, ezeket is próbálja ki:

forall(kor(Nev,6), writef('%w\n',[Nev])).
forall(kor(Nev,Ev), writef('%w\t%w\n',[Nev,Ev])).
forall(kor(Nev,_), writef('%w\n',[Nev])).


FIGYELEM!!
- ha a forall akció része hamis, akkor az egész forall is az!!

*/
