[tutor] Update assignment
This commit is contained in:
parent
39c3af4ba5
commit
ca687c0136
18 changed files with 438 additions and 14 deletions
11
examples/basics/forall.pl
Normal file
11
examples/basics/forall.pl
Normal file
|
@ -0,0 +1,11 @@
|
|||
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.
|
Reference in a new issue