Genealogy in Prolog
Yup kali ini saya akan bagi-bagi code genealogy yang saya baut sebagai tugas mata kuliah AI [Artificial Intelegent] [Artificial Intelligent]..
Pasti anak-anak TI binus pada butuh deh..
Secara ini mata kuliah yang pasti diambil di semester 4. Dan klo ketemu dosen yang bernama Diaz Santika kemungkinan besar akan ketemu Prolog-prolog deh,,
Ayo yang mau ambil silakan.. Jangan malu-malu ya,,
Tapi ingat, resiko akibat penggunaan diluar semestinya ditanggung sendiri!
Posting saya ini hanya ditujukan untuk kepentingan edukasi. Jadi tolong belajar ya, jangan nyontek punya saya.
[code='xml']
pria(tono).
pria(budi).
pria(chandra).
pria(andi).
pria(doni).
wanita(ani).
wanita(evi).
wanita(emilia).
wanita(neli).
orangtua(budi, ani).
orangtua(budi, chandra).
orangtua(budi, andi).
orangtua(tono, budi).
orangtua(tono, evi).
orangtua(evi, emilia).
orangtua(emilia, doni).
orangtua(chandra, neli).
anak(X,Y) :- orangtua(Y,X).
ayah(X,Y) :- pria(X), orangtua(X,Y).
ibu(X,Y) :- wanita(X), orangtua(X,Y).
kakek(X,Y) :- pria(X), orangtua(Z,Y), orangtua(X,Z), X\=Y.
nenek(X,Y) :- wanita(X), orangtua(Z,Y), orangtua(X,Z), X\=Y.
sodara(X,Y) :- orangtua(Z,X), orangtua(Z,Y), X\=Y.
sepupu(X,Y) :- orangtua(Z,X), orangtua(A,Y), sodara(Z,A), X\=Y, Z\=A.
paman(X,Y) :- pria(X), sodara(X,Z), orangtua(Z,Y).
bibi(X,Y) :- wanita(X), sodara(X,Z), orangtua(Z,Y).
cucu(X,Y) :- anak(X,Z), anak(Z,Y), X\=Y.
cicit(X,Y) :- anak(X,Z), anak(Z,A), anak(A,Y).
buyut(X,Y) :- orangtua(Z,Y), orangtua(A,Z), orangtua(X,A), A\=Z, X\=Y.
[/code]
