Celoteh Ania

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.

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.

Jika suka silakan tandai di