Pada program ini membahas tentang kraton Yogyakarta. Kraton Yogyakarta terdapat 5 sektor yaitu sektor a, sektor b, sektor c, sektor d, sektor e. Untuk melihat apa saja nama ruangan yang terdapat pada sektor a ketikkan “kraton(sektor_a,X,Kraton).”. Untuk melihat hasil berikutnya ketikkan “;”.
Untuk melihat apa saja nama ruangan yang terdapat pada sektor c ketikkan “kraton(sektor_c,X,Kraton).”. Untuk melihat hasil berikutnya ketikkan “;”.
Coding :
kraton(kraton,sektor_a).
kraton(kraton,sektor_b).
kraton(kraton,sektor_c).
kraton(kraton,sektor_d).
kraton(kraton,sektor_e).
kraton(sektor_a,bangsal_pagelaran).
kraton(sektor_a,bangsal_pemadengan).
kraton(sektor_a,bangsal_pengapit).
kraton(sektor_a,bangsal_pangrawit).
kraton(sektor_a,bangsal_pacikeran).
kraton(sektor_a,tarub_agung).
kraton(sektor_a,bangsal_sithinggi).
kraton(sektor_a,bangsal_manguntur_tangkil).
kraton(sektor_a,bangsal_witono).
kraton(sektor_a,balebang).
kraton(sektor_a,bale_angun-angun).
kraton(sektor_a,bangsal_kori).
kraton(sektor_a,ragol_brojonolo).
kraton(sektor_b,bangsal_poncoriti).
kraton(sektor_b,bangsal_pacaosan).
kraton(sektor_b,bangsal_srimanganti).
kraton(sektor_c,bangsal_srimanganti).
kraton(sektor_c,bangsal_trajumas).
kraton(sektor_c,bangsal_pacaosan).
kraton(sektor_c,bangsal_pacaosan_buped_nsyaka).
kraton(sektor_c,bangsal_dwarapala).
kraton(sektor_c,bangsal_danapratopo).
kraton(sektor_d,panti_sumbaga).
kraton(sektor_d,gedhong_purwareina).
kraton(sektor_d,gedhong_kuning).
kraton(sektor_d,bangsal_kencana).
kraton(sektor_d,bangsal_prabayeksa).
kraton(sektor_d,bangsal_manis).
kraton(sektor_d,gedhong_patehan).
kraton(sektor_d,gedhong_damartaputra).
kraton(sektor_d,kantor_parentah_ageng).
kraton(sektor_d,bangsal_mandalasana).
kraton(sektor_d,bangsal_kotak).
kraton(sektor_d,bangsal_kilen).
kraton(sektor_d,masjid_panepaten).
kraton(sektor_d,gedhong_gongso_palog).
kraton(sektor_d,gedhong_gongso_slendro).
kraton(sektor_d,sarang_baya).
kraton(sektor_d,gedhong_kaca).
kraton(sektor_d,kasatriyan).
kraton(sektor_d,keputren).
kraton(sektor_d,regol_kemegangan).
kraton(sektor_e,bangsal_kemagangan).
kraton(sektor_e,bangsal_pacaosan).
kraton(sektor_e,panti_paredan).
kraton(sektor_e,regol_gadungmlati).
kraton(X,Y,[X,Y]):-
kraton(X,Y).
Terima kasih udah mampir di : http://h4ck-ing.blogspot.com/
