15 lines
326 B
Prolog
15 lines
326 B
Prolog
likes(alice, pizza).
|
|
likes(alice, pasta).
|
|
likes(bob, pasta).
|
|
|
|
likes_italian_food(Person) :-
|
|
likes(Person, pizza) ;
|
|
likes(Person, pasta).
|
|
|
|
:- initialization(main).
|
|
|
|
main :-
|
|
likes_italian_food(alice),
|
|
write('Alice likes Italian food.'), nl,
|
|
likes_italian_food(bob),
|
|
write('Bob likes Italian food.'), nl.
|