Data update

Task/Integer-comparison/Prolog/integer-comparison-1.pro

@@ -0,0 +1,14 @@
+:- set_prolog_flag(double_quotes, chars).
+
+println([]) :- write('\n').
+println([Char | Chars]) :- write(Char), println(Chars).
+
+my_compare(A, B) :-
+    (   A < B
+    ->  println("A is less than B")
+    ;   A > B
+    ->  println("A is greater than B")
+    ;   % double equals is necessary if we want the predicate to fail if A or B is unbound
+        A == B
+    ->  println("A is equal to B")
+    ).

Task/Integer-comparison/Prolog/integer-comparison-2.pro

@@ -0,0 +1,7 @@
+my_compare2(A, B) :-
+    compare(Order, A, B),
+    my_compare2_(Order).
+
+my_compare2_(<) :- println("A is less than B.").
+my_compare2_(=) :- println("A is equal to B.").
+my_compare2_(>) :- println("A is greater than B.").