diff options
Diffstat (limited to 'example.pl')
-rw-r--r-- | example.pl | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -16,10 +16,11 @@ likes(sam, ice). could_be_friends(Person1, Person2) :- likes(Person1, Thing1), likes(Person2, Thing2), - !, Thing1 = Thing2. list1(A) :- A = [1,2,3,4]. list2(A) :- A = [a,b|c]. -curly(A) :- A = {one,two,three}.
\ No newline at end of file +curly(A) :- A = {one,two,three}. + +:- initialization(could_be_friends(bob, sam)).
\ No newline at end of file |