From 2d7f3ffa770b6eb698566b6566d7e37f10193744 Mon Sep 17 00:00:00 2001
From: Peter Mikkelsen <peter@pmikkelsen.com>
Date: Tue, 29 Jun 2021 16:38:09 +0000
Subject: Parse , and make xfy do what it should

---
 example.pl | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

(limited to 'example.pl')

diff --git a/example.pl b/example.pl
index 8037d1c..dce8533 100644
--- a/example.pl
+++ b/example.pl
@@ -2,4 +2,13 @@
 
 math(A,B,C,D) :- D is A + B + C * A.
 
-true.
\ No newline at end of file
+true.
+
+likes(bob, ice).
+likes(sam, text).
+likes(sam, ice).
+
+could_be_friends(Person1, Person2) :-
+	likes(Person1, Thing1),
+	likes(Person2, Thing2),
+	Thing1 = Thing2.
\ No newline at end of file
-- 
cgit v1.2.3