Majalah Gratis

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]