11 lines
261 B
Prolog
11 lines
261 B
Prolog
likes(alice, pizza).
|
|
likes(alice, pasta).
|
|
likes(bob, pasta).
|
|
|
|
:- initialization(main).
|
|
|
|
main :-
|
|
forall(likes(X, pizza), X = alice),
|
|
write('Only alice likes pizza.'), nl,
|
|
forall(likes(X, pizza), X = bob),
|
|
write('Bob should not like pizza.'), nl.
|