Pertama-tama, kita membuka Notepad dan menuliskan entri sebagai berikut :
animal(mammal,tiger,carnivore,stripes). animal(mammal,hyena,carnivore,ugly). animal(mammal,lion,carnivore,mane). animal(mammal,zebra,herbivore,stripes). animal(bird,eagle,carnivore,large). animal(bird,sparrow,scavenger,small). animal(reptile,snake,carnivore,long). animal(reptile,lizard,scavenger,small). mammals(B):-animal(mammal,B,C,D). carnivore_mammal(B):-animal(mammal,B,carnivore,D). mammals_stripes(B):-animal(mammal,B,C,stripes). reptile_mane(B):-animal(reptile,B,C,mane).
Kemudian, save dengan nama dengan nama animal_exercise.pl
Buka program SWI-Prolog .
Memunculkan semua hewan yang mammals, maka ketikkan
?- mammals(X).
Klik File, kemudian klik Consult dan buka file animal_exercise.pl
Lalu klik Open
Lalu, Enter dan untuk memunculkan semua hasil otuputnya dengan ketik ; hingga mucul pernyataan No
Berarti, output selesai, hasil seperti gambar dibawah ini.
Memunculkan semua hewan yang carnivore dan mammals, maka ketikkan
?- carnivore_mammals(X).
Karena, kita masih menggunakan nama file yang sama maka tidak perlu Consult lagi, langsung
tekan Enter dan untuk memunculkan semua hasil otuputnya dengan ketik ; hingga mucul pernyataan No
Berarti, output selesai, seprti gambar dibawah ini.
Memunculkan semua hewan yang mammals dan memiliki stripes, maka ketikkan
?- mammals_stripes(X).
Karena, kita masih menggunakan nama file yang sama maka tidak perlu Consult lagi, langsung
tekan Enter dan untuk memunculkan semua hasil otuputnya dengan ketik ; hingga mucul pernyataan No
Berarti, output selesai, seprti gambar dibawah ini.
Memunculkan semua hewan yang reptile dan memiliki mane, maka ketikkan
?- reptile_mane(X).
Karena, kita masih menggunakan nama file yang sama maka tidak perlu Consult lagi, langsung
tekan Enter dan langsung mucul pernyataan No
Hal ini dikarenakan, output yang diminta tidak ditemukan yang sesuai persyaratan yang diminta.
Berarti, output selesai, seprti gambar dibawah ini.
Number 2
Pertama-tama kita membuka notepad dan menuliskan entri sebagai berikut :
person(bill,male).
person(george,male).
person(alfred,male).
person(carol,female).
person(margaret,female).
person(jane,female).
man(A):-person(A,male).
woman(A):-person(A,female).
couple(X,Y):-
man(X),woman(Y),
write(X),write(' is a couple with '),write(Y),nl.
go:-couple(X,Y).
Kemudian, save dengan nama dengan nama exercise2.pl
Buka program SWI-Prolog . Dan ketikkan
?- couple(X,Y).
Klik File, kemudian klik Consult dan buka file exercise2.pl
Lalu klik Open
Lalu, Enter
Kemudian, akan mucul hasil seperti gamabr dibawah ini.
Bila kita mengetik ; maka hasil output akan berulang terus hingga selesai dan muncul No
