Contoh Program Prolog dari silsilah keluarga
Berikut ini merupakan code function dari prolog silsilah keluarga :
pasangan(ali,maysarah).
pasangan(furqan,aisyah).
pasangan(makruf,nuraini).
pasangan(salah,ainun).
pasangan(jakariah,zainab).
pasangan(suhada,ana).
anak(jakariah,ali).
anak(nuraini,ali).
anak(hasan,ali).
anak(yana,ali).
anak(sufi,furqan).
anak(makruf,furqan).
anak(salah,furqan).
anak(aini,furqan).
anak(ana,makruf).
anak(yanti,makruf).
anak(medi,makruf).
anak(yogi,salah).
anak(devi,jakariah).
anak(ringga,suhada).
laki_laki(ali).
laki_laki(furqan).
laki_laki(jakariah).
laki_laki(hasan).
laki_laki(sufi).
laki_laki(makruf).
laki_laki(salah).
laki_laki(suhada).
laki_laki(medi).
laki_laki(yogi).
laki_laki(ringga).
perempuan(maysarah).
perempuan(aisyah).
perempuan(nuraini).
perempuan(yana).
perempuan(aini).
perempuan(ainun).
perempuan(ana).
perempuan(yanti).
perempuan(zainab).
perempuan(devi).
orangtua(A,B,C) :-anak(A,B), pasangan(B,C).
kakek_nenek(A,D,E) :-anak(A,B), anak(B,D), pasangan(D,E);anak(A,B),pasangan(B,C),anak(C,D),pasangan(D,E).
kakek(A,D) :-anak(A,B), anak(B,D);anak(A,B),pasangan(B,C),anak(C,D).
nenek(A,E) :-anak(A,B),anak(B,D),pasangan(D,E);anak(A,B),pasangan(B,C),anak(C,D),pasangan(D,E).
saudara(A,F) :-anak(A,B), anak(F,B), (F) \== (A).
saudara_lakilaki(A,F):-anak(A,B), anak(F,B), (F) \== (A), not(perempuan(F)).
saudara_perempuan(A,F):-anak(A,B), anak(F,B), (F) \== (A), perempuan(F).
sepupu(A,G):-anak(A,B),anak(B,D),anak(G,F),anak(F,D), not(anak(G,B));anak(A,B),pasangan(B,C),anak(C,D),anak(G,F),anak(F,D), not(anak(G,B)).
keponakan_kandung(A,I):-anak(I,J),pasangan(J,C),anak(C,B),anak(A,B).
keponakansepupu(A,B):-anak(A,C),anak(C,D), anak(E,D), E\==C,anak(F,E),anak(B,F);anak(A,C),anak(C,D), anak(E,D), E\==C,pasangan(F,E),anak(B,F).
paman_dari_ayah(A,K):-anak(A,B),anak(B,D),anak(K,D), not(perempuan(K)).
paman_dari_ibu(A,K):-anak(A,B),pasangan(B,C),anak(C,D),anak(K,D), not(perempuan(K)).
bibi_saudara_kandung_ayah(A,K):-anak(A,B),anak(B,D),anak(K,D),saudaraperempuan(B,K),perempuan(K).
bibi_dari_istri_saudara_ayah(A,K):-anak(A,B),anak(B,D),saudaralakilaki(B,N),anak(N,D),pasangan(N,K).
bibi_saudara_kandung_ibu(A,K):-anak(A,B),pasangan(B,C),anak(C,D),anak(K,D), perempuan(K),(K)\==(C).
bibi_dari_istri_saudara_ibu(A,N):-anak(A,B),pasangan(B,C),anak(C,D),anak(K,D),pasangan(K,N), perempuan(N).
cucu(D,E,A):-pasangan(D,E),anak(B,D),anak(A,B);anak(A,B),pasangan(B,C),anak(C,D),pasangan(D,E).
ipar(O,M) :-pasangan(A,O), saudara(A,N); pasangan(O,A),saudara(M,A);saudara(O,F),pasangan(F,M);saudara(O,F),pasangan(M,F).
Demikian contoh penggunaan prolog dalam silsilah keluarga, semoga bermanfaat bagi teman-teman dan selamat mencoba :)
DOWNLOAD MEGA LINK : CODE PROGRAM DAN GAMBAR
DOWNLOAD MEDIAFIRE LINK : CODE PROGRAM DAN GAMBAR
DOWNLOAD APLIKASI SWI-PROLOG MEGA LINK
DOWNLOAD APLIKASI SWI-PROLOG MEDIAFIRE LINK
Salam @ourdream
